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IDENTIFICATION 

PROOUCT CODE: AC-T883A-MC 

PRODUCT TITLE: CZIEBAO IEC11-A PDP-11 DIAGNOSTIC 

PROOUCT DATE: JANUARY 1984 

DEPARTMENT; CSS. MUNICH 

AUTHOR: BERT HUBER 



COPYRIGHT (C) FIRST, 1976. 19G4 
DIGITAL EQUIPMENT CORPORATION. HAYNARD. MASSACHUSETTS 01754 
THIS SOFTWARE IS FURNISHED LWOER A LICENSE AND MAY BE USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
ANO WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THiS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFEREE 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSU1ES NO RESPONSIBILITY FOR THE USE OR RELlABIUTr 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 



TABU. OF' CONTENTS 
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ABSTRACT 


2,0 


REQUIREMENTS 


3,0 


LOADING PROCEDURE 


4.0 


STARTING PROCEDURE 


5.0 


OPERATING PROCEDURE 


6.0 


ERROR HANDLING 


7,0 


RESTRICTIONS 


8.0 


EXECUTION TIME AND ORIGINAL EQUIPMENT 


9.0 


DIAGNOSTIC MONITOR DESCRIPTION 


10.0 


LISTING 



Dl 
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******###«**♦***#*»***#**«♦****#********» 

♦ DIAGNOSTIC PROGRAM DESCRIPTION ♦ 

tit************************************** 



t.O ABSTRACT 
♦♦»»»♦»♦»♦♦♦♦►» 

THIS PROGRAM IS DESIGNED TO TEST AND EXERCISE THE 
IEC-11A IEC-BUS CONTROLLER FOR THE POP/11. 

a,0 REQUIREMENTS 

f »t»MHMMMtf f«t f »M 

A, POP 11/XX SYSTEM 

CONSOLE TERMINAL WITH STANDARD UNIBUS ADDRESSES. 

B, A MINIMUM OF 5K MEMORY, 

C, ALL STANDARD PROCESSOR TESTS MUST BE RUN SUCCESSFULLY 

3.0 LOADING PROCEDURE 

»**»+»**»»»*»*»»»» • ♦♦♦♦♦♦♦»•♦♦*♦♦* 

BOOT XXOP MEDIA, THEN RUN DIAGNOSTIC WITH FOLLOWING 
COMhANO : 

R ZIEB?? 

NOTE: ?? REFERS TO VERSION AND REV LEVEL* 

4.0 STARTING PROCEDURE 

PROGRAM IS STARTED AT LOC 1000 (OCTAL) 

IF NOT OTHERWISE SPECIFIED THE ABOVE NOTED ADDRESS IS 

ALSO THE PROGRAM RESTART ADDRESS. 

5.0 OPERATING PROCEDURE 

THE FOLLOWING INITIAL DIALOGUE IS PERFORMED AFTER 
TH£ PROGRAM IS STARTED ; 

COM V3.2 -CSS DIAGNOSTIC MONITOR - 

HIGHEST MEMORY ADDRESS : XXXXXX 

IEC-UA --■ I&C-BU5 CONTROLLER BASIC TESTS 

AC-T885A-MC 



El 

SEQ 4 



ENTER FIRST REGISTER ADDRESS OF IEC U -ACDEF AULT IS 160010 ) 
ENTER AND TERMINATE BY TYPING A <CR> 

ENTER VECTOR ADDRESS OF IEC11 -ACDEFAULT IS 270) 
ENTER AND TERMINATE BY TYPING A <CR> 

ENTER IEC BUS ADDRESS OF IECl 1 -ACDEF AULT IS 35) 
ENTER AND TERMINATE BY TYPING A <CR> 

SET LON SWITCH ON IECli-A TO POS.i (ACTIVE) 
TYPE <CR> WHEN READY 

SET LON SWITCH ON IEC11-A TO P0S.2 (INACTIVE) 
TYPE <CR> WHEN READY 

DO YOU WANT A PRINTOUT OF START, END MESSAGES?(Y OR N) 

DEPENDING ON t OR N, THE PROGRAM PRINTS OUT THE START 
AND ENO OF EACH TEST OR NOT, 

NEXT TEST TO RUN? 

TYPE <CR> TO GO STEP BY STEP THROUGH ALL IEC TESTS (1 - 14), 

OTHERWISE SPECIFY TEST NUMBER (OECIMAL). 

TO SELECT A SINGLE TEST WHILE TEST PROGRAM IS ACTIVE, 

TYPE (CNTRL C) ANO THEN "ABO". AFTERWARDS YOU CAN SELECT 

A SINGLE TEST. THIS TEST RUNS IN AN ENDLESS LOOP UNTIL 

THERE IS AN ERROR MESSAGE OR (CNTRL C) AGAIN, 

START TEST 1 

ENO TEST 1 

START TEST 2 

ENO TEST 2 

START TEST 3 . ....ETC. 



ENO TEST 14 

ENO OF TESTING 



IEC REGISTER ADDRESS MAY Bt ENTERED IU FORMAT l&XXXQ 
IEC -BUS ADDRESS RANGE; *, . 3b 



Fl 



SEQ 5 



fc.O ERROR-HANDLING 

» ♦ ♦ H M ♦ H M M M M ' • f » M M ♦ 

ALL ERROR MESSAGES ARE EITHER SELF -DEFINING OR OF THE 

FOLLOWING GENERAL FORM: 

; ERROR XXX 

WHERE XXX IS AN OCTAL ERROR NUMBER BETWEEN 1 AND 377, 

FOR A DETAILED DESCRIPTION OF THE DIFFERENT ERRORS 

OF THIS PROGRAM HAVE A LOOK 

AT THE APPROPRIATE PAGES LATER IN THE LISTING, 

NOTE;; ERRORS MAY NOT OCCUR IN SEQUENCE. 

5 FOR EXAMPLE: 

j ERROR 45 MIGHT OCCUR BEFORE ERROR 21 

; THIS DEPENDS ON THE STRUCTURE OF THE PROGRAM. 



7.0 



RESTRICTIONS 

IH»HtHHHH»f ftMH 
NONE 



d.O EXECUTION TIME AND ORIGINAL EQUIPMENT 

**♦♦***#*♦♦*«.♦•*♦♦******♦*•**•**♦♦*»* 



THIS DIAGNOSTIC WAS DESIGNED ANO TESTED AT CSS/DP 
WITH THE ACCORDING CSS -HARDWARE EQUIPMENT. 
A NORMAL i.-'.ROR-FREE RUN ON THAT EQUIPMENT 
TAKES ABOUT A MINUTES 



Gl 



ERROR 


.SBTTL 

1 


ERROR 


2 


ERROR 


3 


ERROR 


4 



ERROR 6 
I ERROR 7 

i 

; ERROR 10 

i 

J 

j ERROR IX 

i ERROR 12 

; ERROR 13 

; ERROR 14 
» 

i ERROR 15 

; ERROR 16 

» 

; ERROR 17 

t 

« 

; ERRQft ZQ 



IEC -ERROR DESCRIPTIONS 

SMR CONTENT IS ILLEGAL AFTER A MASTER CLEAR 

SHOULD BE } Oi WAS j RO 

CIR CONTENT IS NOT ZERO AFTER A MASTER CLEAR 

SHOULD 8E: Oj WAS: RO 

IOR CONTENT IS NOT ZERO AFTER A MASTER CLEAR 
SB: Oj WAS; RO 

SACS BIT IN CIR NOT SET BY "BIS" FUNCTION 
RO - CIR CONTENT 



SEQ 6 



RO 



CIR CONTENT 



SACS BIT NOT RESET BY MASTER CLEAR 
RO ■ CIR 

SIC PRODUCES "ILLEG, MESS." WITH SACS TRUE 
RO * CIR CONTENT Ri - SMR 

SIC DOES NOT BRING 'SIAS' BUT NO ' ILLEG. MESS' 

OCCURS. 

RO » CIR CONTENT Rl • SMR 

SIAS BIT TO 1 CHANGE DOES NOT PRODUCE A 

'STATE CHANGE' . 

RO • CIR Rl » SMR 

S T AS DOES NOT BRING CACS. 
V- * CIR Rl • SMR 

SIAS DOCS NOT BECOME ZERO AFTER MORE THAN 200 MS. 
PO - CIR Rl ■ SMR 

NC STATE CHANGE* AFTER 'SIAS' 1 TO CHANGE. 
RO » CIR Rl - SMR 

CACS IS NO LONGER .TRUE. WHEN 'SIAS* IS RESET TO 0, 
RO » CIR Rl » SMR 

MC DOES NOT RESET CACS 
RO • SMR 

NC * ILLEGAL MESSAGE* TO <SICS> WHEN <SACS> 
IS NOT SET. 
RO - CIR 

NO INTERRUPT OCCUREP AFTER SENDING <5IC». 

C« ILLEGAL MESSAGE > SHOULD OCCUR AND BRING AN INTERRUPT.) 

RO « CIR 



-II 



ERROR <U 



error aa 



i ERROR 23 



; ERROR 24 
5 

; ERROR 25 

♦ 

; ERROR 26 

; ERROR 2* 

; ERROR 30 

; ERROR 31 

; ERROR 3? 

• 
J 

; ERROR 33 
» 

{ ERROR 34 
i 

j ERROR 35 

* 

; ERROR 3i> 



1HE INTERRUPT THAT OCCURED AFTER SETTING <SIC> 

WITHOUT <SACS> WAS NOT, OR NOT EXCLUSIVELY CAUSED 

B1 < ILLEGAL MESSAGE*. 

BITS 8-15 OF R5 - 'SHOULD BE' CONTENT OF CIR BITS 8-15 

RO • ACTUAL CONTENT OF CIR 

SETTING OF <SACS> AND <SIC> SHOULD BRING <SIAS>, 
WHICH IN TURN SHOULD FORCE AN INTERRUPT BY SETTING 
< STATE CHANGED BUT NO INTERRUPT OCCURED, 
RO » CIR 
Rl - SMR 

THE. INTERRUPT THAT OCCURED AFTER SETTING <SACS> 

AND <SIC* WAS NOT OR NOT EXCLUSIVELY CAUSED BY 

< STATE CHANGE*. 

BITS 8-15 OF R5 - 'SHOULD BE' VALUE OF CIR BITS 8-15 

RO - ACTUAL CONTENT OK CIR 

<SRE* IN SMR NOT SET 

RO • CIR Rl - SMR 

<SRE> PRODUCES <ILLEGAL MESSAGE* WITH <SACS> SET, 
RO ■ CIR CONTENT Rl ■ SMR CONTENT 

<SRE> DOES NOT BRING <SRAS* BUT NO < ILLEGAL MESSAGE > OCCURS. 
RO - ICR Rl - SMR 

<SRAS* TO 1 CHANGE DOES NOT PRODUCE <STATE CHANGE*. 
RO - CIR Rl - SMR 

<SRE> IN SMR CAN'T BE CLEARED BY A 'BI~' INSTRUCTION, 
RO - CIR Rl • SMR 

CLEARING OF <SRE* DOES NOT RESET <SRAS* IN SMR. 
RO - CIR Rl - SMR 

CLEARING OF < SRE > DOES NOT OR NOT ONLY PRODUCE 

A <STATE CHANGE*. 

RO • CIR Rl-SMR 

< INTERRUPT ENABLE* IN C T R CAM NOT BE SET. 
RO - CIR 

< INTERRUPT ENABLE* IN CIR CAN NOT BE CLEARED. 
RO • CIR 

<CSBS> NOT SET AFTER SETTING <GTS*. 
RO - CIR Rl » SMR 

<CSBS> SETTING DOES NOT PRODUCE <STATE CHANGE*, 
RO * CIR Rl » SMR 



SEQ 7 



II 



5 ERROR 5? 

♦ 

; ERROR 40 

» 

{ ERROR 41 
i 

l ERROR 42 

5 

i 

; ERROR 4 5 

« 

i 

i F.RROR 44 

i 
» 

; ERROR 45 

* 

: ERROR 46 

; F.RROR 47 

» 

j ERROR 50 

; ERROR 51 
» 

; ERROR 52 
» 

i ERROR 55 

i 

; ERROR 54 



NO < ILLEGAL MESSAGE * TO SETTING OK <GTS> 
IN 'STAND BY' STATE, 



SEQ 8 



RO ■ CIR 



Rl 



;mr 



<TCA> IN <CSBb> DOES NOT OR NOT ONLY PRODUCE <STATE 
CHANGE*. RO- CIR Rl - SMR 

<TCA> IN <CSBS> DOES NOT OR NOT ONLY PRODUCE <CACS>, 
RO - riR Rl - SMR 

WHEN ADDRESSING THE TALKER IN <CACS>, NO INTERRUPT 

OCCUREO. 

THE INTERR'JPT SHOULD HAVE BEEN SET BY <DATA ACCEPTED> . 

WO - CIR Rl - SMR R2 • IOR 

AN INTERRUPT OCCURED BY ADDRESSING THE TALKER, 

BUT IT WAS NOT OR NOT ONLY CAUSED BY <DATA ACCEPTED*. 



RO 



CIR 



Rl 



iMR 



R2 - IOR 



AFTER SUCCESSFULLY ADDRESSING THE TALKER, IT IS NOT 
POSSIBLE TO SET «CSBS> AND <TACS> CORRECTLY QY <GTS>. 
RO • CIR Rl ' SMR R2 * IOR 

WHEN SENOING A DATA BYTE WITHOUT ADDRESSING THE LISTENER, 

NO INTERRUPT OCCURED. 

RO • CIR Rl • SMR R2 - IOR 

<TCS> DOES NOT PROOUCE <ILLEG. MESSAGE * 
RO * CIR Rl - SMR 

LOW ORDER BYTE OF IOR <BITS 0-7> CNA NOT BE SET OR 

READ BACK CORRECTLY. 

'SHOULD BE' - ALL ONES 'IS* - RO 

BITS 8-15 CAN BE IGNORED BUT SHOULD BE ZERO. 

WHEN SENDING THE LISTENER ADDRESS. NO INTERRUPT OCCURS. 
RO - CIR Rl -SMR R2 » IOR 

SENOING THE LISTENER AODRESS FORCES AN INTERRUPT THAT 
WAS NOT OR NOT 0NL1 CAUSED BY <DATA ACCEPTED*. 
R0^R2 SAME AS ERROR 50 

AFTER LISTENER ADORESSING ANO <GTS> NO <LACS> IS SET, 
R0-R2 SAME AS ERROR 50 

NO INTERRUPT TO TALKER ADDRESSING 
R0-R2 SEE ERROR 50 

WHEN SENOING A SECOND DATA B>TE BEFORE READING THE FIRST 
AGAIN <DATA ACCEPTED> CAME UP, 
R0-R2 SEE ERROR 50 



Jl 



; ERROR 55 
t 

; ERROR 5b 

» 

j ERROR 57 
♦ 

; ERROR 60 

i 

{ ERROR 61 
5 

; ERROR 62 

» 

; ERROR 63 

i 

; ERROR 64 
; ERROR 65 

i 

; ERROR 66 

; ERROR 67 

i 

; ERROR 70 

» 

; ERROR 71 

; ERROR 72 

* 

; ERROR 7$ 
j ERROR 74 



FIRST DATA BYTE SENT AND RECEIVED IS NOT THE SAME. 
R0-R2 SEE ERROR 50 

AFTER READING THE FIRST SENT DATA BYTE, THE SECOND SENT 
DID NOT BRING <DATA ACCEPTED*. 
R0-R2 SEE ERROR 50 

SECOND DATA BYTE SENT AND RECEIVED IS NOT THE SAME. 
R0-R2 SEE ERROR 50 

SENDING OF DATA BYTE DOES NOT PRODUCE AN IN T ERRUPT. 
R0-R2 SEE ERROR 50 

SENOING A DATA BYTE FORCES AN INTERRUPT THAT WAS NUT 
OR NOT ONLY PRODUCED BY <DATA ACCEPTED*. 
R0-R2 SEE ERROR 50 

DATA BYTES SENT AND RECEIVED ARE NOT EQUAL. 
RU-R2 SEE ERROR 50 

•JO <DATA ACCEPTED* WHEN SENDING A BYTE WITH <LAST BYTE* SET. 
R0-R2 SEE ERROR 50 

NO <END* TO <LAST BYTE* 
R0R2 SEE ERROR 50 

DATA CHECK ON <LAST BYTE* 
R0-R2 SEE ERROR 50 

NO <LACS> TO <LTN* 
R0-R2 SEE ERROR ^0 

NO <LCAj> AFTER THE FOLLOWING COMMAND SEQUENCE; 

CLTN-GTS-TCA-GTS] 

R0-R2 SEE ERROR 50 

<LACS> STILL SET AFTER THE FOLLOWING SEQUENCE: 

(LTN-GTS-TCA-LW-GTS] 

RO-R? SEE ERROR 50 

< BLOCK DAC> CAN NOT 8E SET 
R0-R2 SEE ERROR 50 

<BLC:K DAC* CAN NOT BE RESET 
R0-R2 SEE ERROR 50 

SENOING A BYTE WITH <BLOCK DAC* FORCES AN INTERRUPT 
RO-R? SEE ERROR 50 

DATA BYTES SENT AND RECEIVED WITH <3L0CK DAC* ARE 

NOT EQUAL. 

R0-R2 SEE ERROR 50 



SfcQ 9 



Kl 



{ ERROR 75 

i 

j ERROR 76 

; ERROR 77 

; ERROR 100 

; ERROR 101 

; ERROR 102 

; ERROR 103 

j ERROR 104 

j ERROR 105 



NO <SRQ> TO <RSV^ 
R0-R2 SEE ERROR 50 

NO <SPAS> TO <SPE> 
R0-R2 SEE ERROR 50 

DATA CHECK ON STATUS BYTE 
R0-R2 SEE ERROR 50 

<SRQ> NOT Off AFTER STATUS BYTE RECEIVED 
R0-R2 SEE ERROR 50 

NO <TACS> AFTER <SPD> 
R0-R2 SEE ERROR 50 

<RPP> CAN NOT BE SET 
R0-R2 SEE ERROR 50 

<RPP> C^N NOT SE RESET 
R0-R2 StE ERROR 50 

NO <1LLEG. MESSAGE* WHEN SENDING <SRE> 
WITHOUT SENDING <SACS> BEFORE. 
R0-R1 SEE ERROR 50 

BIT 10 IN CIR NOT SETTAB^t BY "BIS" 
INSTRUCTION (INHIBIT SRQ INTERRUPT) 



SEQ 10 



i ERROR 106 



BIT 10 IN CIR NOT RESETTABLE BY **&IC" 
INSTRUCTION 



; ERROR 107 



SEE ERROR 105 



; ERROR 110 



BIT 10 IN CIR NOT RESETTABLE BY MASTER CLEAR 



i ERROR 111 



BIT 7 (INTERRUPT) SHOULO BE SET WITH 
CLEAR SRQ INT INHIBIT BIT (BIT 10 IN CIR) 



; ERROR 11,? 

{ 
; 

j ERROR 113 
t 



BIT 7 (INTERRUPT) NOT CLEAR WITH INHIBIT 
SRQ INTERRUPT BIT SET (CIR) 



BIT / IH CIR NOT SET AGAIN WITH 
INHIBIT SRQ INT BIT CLEAR AGAIN 



ERROR 114 CIR SHOULD CONTAIN #602 (STATE CHGE , INT ,LQN) 



i ERROR 115 SMR SHOULD CONTAIN ONLY BIT 12 (LACS) 



; LRROP 116 CIR SHOULD CONTAIN 0600 C STATE CHANGE, INT) 
; LON MUST BE CLEAR AGAIN 

I 

ERROR 117 LACS DISSMPPEARED WITH LON SWITCH IN INACTIVE 
POSITION CPOS. 2) AFTER FORMER ACTIVATION 
OF THIS SWITCH, 



LI 

SEQ 11 



Ml 



******* #4,#.+.****.*.+ **4.*.***#***.*** ********** 



SEQ 12 



* 

* 
* 

* 

* 

+ 

+ 

* 

* 



PRODUCT CODE; AC-T883A-M1 
PRODUCT NAME: IEC-11A MAIN TEST 



DATE; 20-JUN-76 
29 ^EP -76 
27-JAN-77 
Ol-MAR-77 
Ol-APR-77 
01-FEB-8O 
22-APR-80 
12-MAR-84 



(VOIEOO) 
CV01E01) 
(V0JE02) 
(V02EOO) 
(V02E01) 
(V03E02) 
CV03EO3) 
CZIEBAO^ 



MAINTAINER: CSS/DP MUNICH 

AUTHOR: BERT HUBER CSS 

UPDATED TO V01E02 BY B.BAUOISCH 
UPDATED TO V02E00 BY B.BAUOISCH 
UPDATED TO V02E01 f v B.BAUOISCH 
UPDATED TO VO3E02 bY G. SZENTES 
UPDATE r TO V03E03 B> G, SZENTES 
UPDATE ZIE8A0 BY J, LEVESQUE 



* 
* 

* 

* 

* 
+ 

* 

* 

* 

* 
+ 



**AA*A**i*t*4IA**U**AUA**A**********ii* 



9.0 DIAGNOSTIC MONITOR DESCRIPTION 



STARTING PROCEDURE 



A) USING A PROCESSOR WITH A SWITCH PANEL 

PLACE START ADORES 1 ; INTO SWITCH REGISTER 
(S^ART ADDRESS IS 1000 OCTAL ) 

PRESS "LOAD ADDRESS" SWITCH 

PRESS "START" SWITCH 

PROGRAM SHOULD BEGIN TO PRINT OUT THE IDENTIFICATION- 
PRINTOUT. 



B)USING A l.SIll 

TYPf: IN ST. ADOR., C 1000 OCTAL) AND "G" INTO ONE. LINE 
PROGRAM STARTS WITH IDENTIFICATION PRINTOUT, 



Nl 



SEQ 13 
CAUSING A PROCESSOR WITHOUT A CONSOLE (11/04,11/34') 

PRESS "CNTRL" AND "BOOT" BUTTONS, ODT CONSOLE 

ROUTINE PRINTS A S-SIGN. 

TYPE IN "L 1000" ANO A <CR>. 

TYPE AFTER THE "%" AN "S" AND <CR>, PROGRAM SHOULD BEGIN TO 

PRINT IDENTIFICATION PRINTOUT, 

OPERATING PROCEDURES 



TO OPERATE AN ERROR SEE UNOER A - ) 

TO MODIFY A LOCATION SEE UNOER C) 

TO DUMP A LOCATION SEE UNOER B) 

TO ABORT THE RUNNING PnOGRAM SEE UNOER D) 

A) ALL INPUT/OUTPUT OPERATIONS ARE DONE VIA THE DIAGNOSTIC 
MONITOR. NO SWITCH SETTINGS ARE USED, 
ALL C0-1MAN0S, REQUIRED WHEN AN ERROR OCCURS. ARE 
ENTERED VIA ^HE TERMINAL. 

THESE COMMANOS SET OR CLEAR BITS IN A MEMORY LOCATION 
CALLED PSFUOO-SWITCH REGISTER. 
THE FOLLOWING OPTIONS ARE AVAILABLE : 

/H r ™ HALT AFTER ERROR ( DEFAUL T ) 

/NH * NO HALT AFTER ERROR 

/PR * PRINT ERROR MESSAGE (DEFAULT) 

/NP = NO ERROR PRINTOUT 

/CT « COUNT ERRORS 

/NC - NO ERROR COLNT (DEFAULT) 

/SC - SCOPE LOOP ON THIS ERROR 

/NS » NO SCOPE 1 OOP (DEFAULT) 

/CONT - CONTINLt SWITCH 

WHEN AN ERROR OCCURS, THE FOLLOWING TEXT lb PRINUO: 

ERROR OOOXXX 

AT LOCATION- XXXXXX 

HALT AFTER ERROR 

THE ERROR tJUMBER CAN BE IN THfc NGE * .* \ 
THE LOCATION ADDRESS IS ABSOLUTE. 

WHEN AN ERROR IS FOUND, the FVy>RAM I 1 , IVt«Hi.#>Trj . 
THE ERROR NUMBER, ERROR LOCATION ANO P'jE'Oc STOP MESSAGE 
AriE PRINTED. THEN IMF. DIGNQSHC MONITOR WAITS FOR 
. T .NPUT OF OPTIONS, 



PRESS <CNTRL. C> AND THE "PROMPT STRING" IS PRINTED AT 
THE BEGINNING OF A NEW l_ TNE . 

CDM> 

(PROGRAM PRINTS WILL BE UNDERLINED FROM NOW) 

NOW YOU CAN SELECT THE OPTIONS YOU NEED TO FIND THE ERROR. 
THE SYNTAX Of A COMMAND LINE IS AS FOLLOWS: 

CDM>ERR-/0PT1/0PT2/0PT3/. . .OPTN/CONT <CR> 

■ ■ ■ B 

IF THERE IS A ERROR IN THE INPUT LINE THE FOLLOWING 
MESSAGE IS PRINTED: 

SYNTAX ERROR » 

^OU CAN NOW REPEAT THE INPUT* 

ANY COMBINATION OF OPTIONS IS LEGAL, BUT PROBABLY NOT USEFUL, 
WHEN YOU TYPE /SC/NS THE FIRST OPTION IS OVER- 
WRITTEN. THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT, 

THE LAST OPTION IN A LINE MUST BE /COW. 

THEN THE MONITOR RETURNS CONTROL TO THE POINT OF PROGRAM 
WHERE THE ERROR WAS ENCOUNTERED AND THE PROGRAM CONTINUES 
WITH THE ENTERED OPTIONS. 

B) OPTION : DMP 

THIS OPTION CAN BE USED TO CHECK THE CONTENT OF A 

MEMORY LOCATION OR A REGISTER. 

IT CAN ONLY BE CALLED AFTER AN ERROR OR WHEN YOU INTERRUPTED 

THE RUNNING PROGRAM BY PRESSING "CNTRL C". 

EXAMPLE: 

AFTER AN ERROR PRINT YOU PRESSED "CNTRL C" AND THE MONITOR 

RETURNED THE PROMPT STRING: 

CDM> 

a a a a 

IF YOU WANT TO CHECK LOCATION 1000 ANO IT CONTAINS 

E.G. 012767, SO YOU HAVE TO TYPE AFTER THE PROMPT STRING 

CDM>DMP/001000<CR> 

a a a a 

0127<?7 



B?. 

SEQ 14 



THE MONITOR WILL PRINT THE CONTENT OP" LOCATION 1000.. 

THE MONITOR RETURNS NOW INTO ITS WAIT ROUTINE AND WAITS 
FOR FURTHER INPUTS. 

C) OPTION j SET 

THIS OPTION CAN BE USED TO MODIFY THE CONTENT OF A 

MEMORY LOACTION OR OF A REGISTER. 

IT CAN BE CALLED ONLY AFTER AN ER30R OR WHEN YOU INTERRUPT 

THS RUNNING PROGRAM. TO CALL THE MONITOR PRESS "CNTRL C" AND THE 

MONITOR ANSWERS, AS PREVIOUS SEEN, BY PRINTING 

CDM> 

a ■ ■ * 

IF YOU WANT TO CHANGE LOCATION 1000, YOU HAVE TO 
TYPE ON THE SAME LINE 

CDM>SET/001000/000000<CR> 

at « a at 

THE LOCATION CONTAINS NOW 

ZERO. INPUT OF NEW MEMORY LOCATION CONTENT MUST BE SIX 

OCTAL DIGITS LONG WITH LEADING ZERO'S. 

D) OPTION : ABO 

THIS OPTION CAN BE USED ONLY AFTER AN ERROR OR WHEN YOU 
INTERRUPT THE RUNNING PROGRAM BY PRESSING "CNTRL C" , 
USING THIS OPTION ALLOWS TO ABORT THE PROGRAM AT CURRENT 
POINT OT TEST ANO EITHER TO GO TO BEGIN OF TEST , OR IF 
SUPPORTED. TO CALL A SUBTEST. 
AFTER PRESSING "CNTRL C" THE MONITOR RETURNS WITH 

CDM> 

m j m m 

TYPE NOW ON THE SAME LINE 
CDM>ABO<CR> 

■ a a m 

ANO THE PROGRAM WILL GO TO BEGIN OF TEST 

IF YOU ENTER OR -CR> OR TO A 

ROUTINE WHERE YOU CAN SELECT A SUBTEST . 

10. LISTING 

♦ + ♦ * + ♦ * 
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SEQ 15 
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T^-OfWeH^ 00 SO-™-" ^,02 SEQ 16 



4l " 


4 


LOW -CORE 


4- 


53 


INITIALISATION 


V 


103 


MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 


5- 


215 


*,,MAP MAPPING ROUTINE 


•j _ 


267 


i,.EMT 


8- 


329 


t . . TRP 


9- 


399 


$, IOT 


10- 


430 


$. PWR 


10- 


482 


$, .RSV 


11- 


508 


*..RRS 


12- 


536 


*. .KBI 


13- 


590 


% . , INP 


14- 


661 


S..IAY 


ir- 


712 


*,.IAA 


it- 


759 


I..IAD 


is- 


873 


S . . IAE 


19- 


979 


$,.RED 


20- 


1162 


*. .WRT 


21- 


1230 


t . » KBO 


22- 


1252 


$, .PRO 


23- 


1285 


♦. .STX 


24- 


1317 


I..DMP 


26- 


1418 


$ . . AOP 


27- 


1437 


S..TOT 


28- 


1463 


♦..BUT 


30- 


62 


TEST SELECT ROUTINE 


32- 


107 


LOCAL MACPO DEFINITIONS 


33- 


209 


TEST ION SWITCH FEATURE 


34- 


234 


TEST 1 EXECUTE MASTER CLEAR 


35- 


255 


TEST 2 TEST SACS BIT IN CIR 


36- 


284 


TEST 3 TEST CIR BIT 10 INHIBIT SRQ INTERRUPT 


37- 


314 


TEST 4 TEST SACS SIC SIAS ILLMSG CACS 


38- 


379 


TEST 5 TEST INT ENB 


59- 


402 


TEST 6 TEST INTERRUPT WITH STATE CHGE 


40- 


444 


TEST 7 TEST STATE CHGE INTERRUPT WITH SRAS 


41- 


514 


TEST 8 - IOR DATA TEST 


42- 


534 


TEST 9 TEST STATE CHGE INTERRUPT WITH GTS AND SIC 


43- 


646 


TEST 10 TEST DATA TRANSFER WITH INTERRUPT 


44- 


770 


TEST 10A -- RANDOM TALKER AND LISTENER DATA TEST 


45- 


849 


TEST 11 -- TEST FUNCTION OF <LTN> AND <LUN* 


46- 


910 


TEST 12 -- TEST FUNCTION OF <BLOCK DAC> 


47- 


970 


TEST 13 -- TEST FUNCTION OF <RSV>,<SRQ> AND <SPAS> 


48- 


1064 


TEST 14 --- TEST RPP BIT R/W 


49- 


1089 


IEC -INTERRUPT HANOLER 


50- 


1118 


S16TEST ADDRESS TABLE 


51 


1120 


MESSAGES 


52- 


1178 


CONSTANTS AND PARAMETERS 



E2 
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SEQ 17 



000000 



000000 



.ENABL 


AMA 


. ENABL 


ABS 


.LIST 


ME 


.SBTTL 


LOW -CORE 


.MCALL 


INIT 


INIT 




ME 





LIST 

COPYRIGHT (C) 1976 
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SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 
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ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH 
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TIME 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 
IN DEC, 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OH RELIABILITY OF 
ITS SOFTWARE ON EQUIPEMENT WHICH IS NOT SUPPLIED B* DEC, 



-2 



IECU-A DIAGNOSTIC 


LOW -CURE 




7 OOOOOO 




a 




9 




10 




11 




12 




13 




14 




IS 




16 




17 




18 




19 OOOOOO 




20 


OOOOOO 


21 


000004 


22 




23 




24 




25 000020 


003056 


26 000022 


OOOOOO 


27 000024 


003126 


28 00C026 


OOOOOO 


29 000030 


002326 


30 000032 


OOOOOO 


31 000034 


002524 


32 000036 


OOOOOO 


33 


000030 


34 




35 




36 




37 000200 


000137 


38 


000137 


39 




40 




41 




42 001000 


000137 


43 


000X00 


44 




45 
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.PSECT CSSMON 
MZ001 



SEQ 18 



001000 



001204 



10$ J 



THIS CHANGE ALLOUS TO USE A MACRO THAT EITHER CLEARS 
THE PSW BY A "CLR" OR A "MTPS". 

GS001 

THIS CHANGE ALLOWS TO START THE PROGRAM AT LOC. 200 



.ASECT 








.-0 








.REPT 


4 






.♦2 




jPOINT TO VECTOR *2 




IOT 




jHANDLE ILLEGAL TRAP 




.ENDR 








••.101 




j ILLEGAL TRAP -HANDLER 









jPRIORITY - 




$..PWR 




jPOWERFAIL -RESTART -HANDLER 







^PRIORITY • 




•..EMT 




jEMT -HANDLER 









jPRIORITY - 




i, .TRP 




» TAP-HANDLER 









tPRIORITY - 




.REPT 


30 




**GS0J1*» 


. »2 




^POINTER TO VECTOR »2 I 


**Gf JOl** 


IOT 




j HANDLE ILLEGAL TRAP j 


♦♦GS001** 


.ENDR 






*«-GS001*« 


JMP 


10$ 


i INITIALIZE SYSTEM i 


**GS001*± 


.REPT 


137 




**GS001** 


.♦? 




iPOINTER TO VECTOR »2 


♦♦GS001** 


IOT 




j HANDLE ILLEGAL TRAP 


**GS001±* 


.ENDR 






**GS001** 


JMP 


START 


1 INITIALIZE SYSTEM 




.REPT 


100 











j STACK -AREA 




♦ ENDR 









GZ 



IEC11-A DIAGNOSTIC 
LOW -CORE 

47 
48 
49 
50 
51 
52 
53 

54 001204 000005 

55 001206 012706 

56 001212 012757 

57 001220 005057 

58 001224 005057 

59 001250 000240 

60 001252 012757 

61 001240 000404 

62 001242 005037 
65 001246 

64 001252 012757 

65 001260 012737 

66 001266 012737 

67 001274 012757 

68 001302 012700 

69 001506 005020 

70 001310 020027 

71 001314 001574 

72 001516 012757 
75 

74 001324 

75 001550 

76 001560 012737 

77 001566 004757 

78 001572 000414 

79 001374 

80 001574 012700 

81 001400 005001 

82 001402 012757 

83 001410 012706 

84 001414 005740 

85 001416 

86 001424 

87 001424 010057 

88 001450 010157 

89 001454 006201 

90 001456 006000 

91 001440 006201 

92 001442 006000 

93 001444 000241 

94 001446 006000 

95 001450 

96 001460 

97 001470 052757 

98 001476 012757 

99 001504 005757 

100 001510 001575 

101 001512 000157 
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MZ001 



SEQ 19 



001204 
001242 
000006 
177776 

177777 

007016 

000006 
000004 
003424 
000340 
007026 

007202 

001000 



007026 
001516 



160000 

001410 
001204 



007022 
007024 



AS VERY FIRST INSTRUCTION DO A "RESET" TO CLEAR 
ALL HARDWARE THAT IS IN AN UNDEFINED STATE 



000004 



007016 



000004 
000006 
000060 
000062 



007172 



007146 



.SBTTL 

START; RESET 
MOV 
MOV 
CLR 
CLR 
NOP 
MOV 
8R 

S..TYP: CLR 

STCKUP 

TYP..E: MOV 
MOV 
MOV 
MOV 
MOV 

1$: CLR 

CMP 
BNE 
MOV 

PSET 

WRITE 
MOV 
JSR 
BR 



M..TSE; 



000004 



M..SAV: 



000100 
000042 
007152 

010614 



177560 
QQQ04Q 



MOV 
CLR 
MOV 
MOV 
TST 
REMVEC 

MOV 
MOV 
ASR 

ROR 

ASR 

ROR 

CLC 

ROR 

DUMP 

WRITE 

RIS 

MOV 

TST 

BNE 

JMP 



INITIALISATION 

OSTART.SP 
0$..TYP,4 
6 

sops 

0-1.IIPTYP 
TYP..E 

HPTYP 

06,4 
04,6 

0$..KBI,b>060 
0340,8062 
OKBBUFF.RO 
(R0)» 

R0,0PR0MF.S 

II 

01000. SCOPAD 

00 

MVERSN 

OKBBLTF,KBBPNT 
PC,M,,TST 
M. .SAV 

0160000.R0 

Rl 

0, *6,»04 

OSTART.SP 

(R0) 
02 

RO, ME MEND 

R1.MEMEND*2 

Rl 

RO 

Rl 

RO 

RO 

OCT ,R0 
N06 

oeiT6,aOTKS 

042.Q040 
OUTFLG 
. 4 
CDM».E 



I CLEAR THE WORLD ;MZ001 

I SETUP SP 
PREP FOR TEST 

IS IT A PDP OR A LSI ? 

IT IS A PDP 
SKIP LSI PART 
INDICATE A LSI 

REBUILD 

SETUP KEYBOARD VECTOR 

M II 

RESET ALL FLAGS 



IF NO SCOPE LABEL IS SET IN THE PROGRAM 

THEN GOTO START AFTER ERR-/SC 

SET PS TO iMZOOl 

SAY HELLO TO EVERYBODY 

SETUP INPUT -BUFFER -POINTER 

CALL MEM, TEST WITH MEM, MANAGEM. SETUP 

GO TO SAVE HIGHEST MEMORY ADDRESS 

HERE IF NO MEMORY MANAGEMENT FOUND 

SETUP MAXIMUM CORE -ADDRESS 

SETUP FOR MEMEND»2 FOR UNMAPPED PROC . 

SETUP TRAPHANOLING 

REBUILD STACKPOINTER 

TOP OF CORE? 

REBUILD TRAP TO 4 VECTOR 

HERE IF HIGHEST MEMORY ADDRESS FOUND 

SAVE HIGHEST MEMORY ADDR. 

SAVE EXTENSION BITS 

PUT ADDR16 INTO CARRY 

ROTATE AD0R16 INTO MSB OF RO 

PUT ADDR 17 INTO CARRY 

ROTATE ADDR17 INTO MSB OF RO 

RESET CARRY 

SHIFT OUT THE LS-OCT DIGIT OF PHYS AQQR 

DUMP ADDRESS 

PRINT LS-OCT -DIGIT ALWAYS AS "6" 

ENABLE TTY INTERRUPTS 

PREP THIS LOCATION FOR USING XXDP 

SYNCHRONISE OUTPUT 
»i 

NOW WE ARE ON TH£ AIR 



iBBOOl 
iBBOOl 

iBBOOl 

iBBOOl 



iBBOOl 



iBBOOl 
;BB001 
jBBOO; 
iBBOOl 
iBBOOl 
iBBOOl 

l&BQOL 



H2 



mASrnmtPkwi mMt®°*M-im 
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SEU 20 



105 
104 
105 
106 

10? 
108 
109 

no 
111 

11? 

114 
115 
lib 
117 
118 
119 
120 

lc'l 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

14 7 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 



001516 
001516 
001524 
001530 
001536 
001542 
001546 
001554 
001562 
001566 
001574 
001576 
001600 
001606 
001610 
001612 
001612 
001636 
001646 
001652 
001660 
001662 
001662 



001700 
001702 
001704 
001706 
001712 
001714 
001716 
001722 
001724 
001726 
0017*4 
QG1/42 



012737 
005037 
012737 
005037 
004737 
012737 
012737 
012700 
012737 
005710 
103031 
162737 
002401 
000771 



012716 
042737 
000422 



000005 



103402 
005001 
OO0402 
012701 
006316 
006101 
042700 
050016 
012600 
012737 
012737 
012737 



001776 
000252 
001776 
000006 
002006 
007400 
000001 
157776 
001766 



000200 



000250 
000004 

172354 
007020 

000004 
172354 



001374 

000001 177572 



000001 



160000 



.SBTTL MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 
SUBROUTINE ; M..TST 



THIS ROUTINE CHECKS THE AVAILABILITY OF A MEMORY MANAGEMENT UNIT 

IN PDP-11 PROCESSORS AND SETS KI c .;\HO. . .KISAR5 TO THE LOW 24K -WORDS 

OF THE COMPUTER MEMORY , 

KISAR7 IS USED TO MAP THE SO-CAl n.O I/O PAGE . 

KISAR6 IS USED TO MAP THE HIGHEST MEMORY ADDRESS CHECK POINTER , 



INPUT; 
OUTPUT; 

AUTHOR: 

M, .TSTj 



20$ 



30* 



M. .DET: 



000252 000250 
000004 000252 
00000b 000004 



401 
45$ 



M..RETt 



MOV 

CLR 

MOV 

CLR 

CALL 

MOV 

MOV 

MOV 

MOV 

TST 

BCC 

SUB 

BLT 

BR 

PSET 

WRITE 
MOV 
BIC 
BR 

PUSH 

.REPT 

ASL 

.ENDR 

BCS 

CLR 

BR 

MOV 

ASL 

ROL 

BIC 

BIS 

MOV 

MOV 

MOV 

MOV 



(SP) -RETURN ADDRESS 

RO -LOW 16 ADDRESS BITS Of HIGHEST MEMORY ADDRESS 
Rl -BITS 0,1 ADDRESS BITS 16,17 

BERNHARD BAUOISCH CSS/DP MUNICH 19 -DEC -78 



<M..TRP,Q0250 

N0252 

0M,,TRP,S04 

SJ6 

M , » MMM 

07400, KISAR6 

tl.UMTYP 

0157776, RO 

Ott. .HIM.Q04 

BRO 

M. .OET 

J200.KI5AR6 

30$ 

20$ 

00 

MEMOEF 

OM. . TSE.CSP) 

OfUTO.SRO 

M. .RET 

KISAR6 

b 

(SP) 

40$ 

Rl 

45$ 

06IT0.R1 

(SP) 

Rl 

0160000, RO 

RO.(SP) 

(SP)*.RO 

0252,8)0250 

04,3*252 

Ob ,804 



REFERENCE LABEL 

SETUP SEGMENTATION TRAP CATCHER 

SETUP TRAP-4 CATCHER 

SETUP DEFAULT MAPPING, ENABLE MM 

MAP WITH KISAR6 THROUGH MEMORY 

REMEMBER THAT WE HAVE MEMORY MANAGEMENT! 

GET HIGHEST ADDRESS WITHIN APR6 RANGE 

SET UP TRAP 4 CATCHER 

SEC IF ADDRESS PRESENT 

CC IF ADDRESS FOUND 

MAP TO NEXT LOWER 4K WORD BANK 

THIS CASE SHOULD NEVER HAPPEN 

CHECK NEXT LOWER 4-K WORDS 

HERE ONLY IF MAIN PROCESSOR HARDWARE ERROR 

SET PRIORITY TO 

MEMORY MANAGEMENT DEFECT 

MODIFY RETURN ADDRESS TO UNMAPPED SYSTEM 

DISABLE Mh 

AND GO AHEAD LIKE UNMAPPED SYSTEM 

HIGHEST MEMORY ADDRESS FOUND 

GET MAP REGISTER CONTENTS 

PUT ADDRESS BIT 17 INTO PSW CARRY 

C5 IF ADDRESS BIT 1? SET 
HERE IF BIT17 NOT SET 

FLAG BIT 17 FOUND 

GET ADDRESS BIT 16 

INSERT BIT IN MEMORY EXTENSION MASK 

MASK OUT APR SELECTION BITS 

BUILD 16 BIT BASE ADDRESS 

■ ->R0 FOR OUTPUT TO CALLER 

RESET SEGMENTATION TRAP CATCHER 

REStI TRAP-4 CATCHER 
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12 



SEU 21 



160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

1/1 

172 

175 

174 

175 

176 

177 

178 

179 

180 

161 

182 

183 

184 

185 

lft6 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

215 

214 

^l t i 



001750 
001756 
001760 
001760 
001764 
001766 
001766 
001774 

001776 
001776 
002000 
002002 



002006 
002006 
002014 
002020 
002024 
002030 
002032 
002054 
002036 
002042 
002044 
002050 
002054 
002060 
002064 
002070 
002074 
002100 
002106 
002114 



012737 
000207 

012716 
000760 

052766 
000002 



022626 
005726 
000137 



012700 
012701 
012702 
010022 
005301 
0013/5 
012702 
005022 
012722 
012722 
012722 
012722 
012722 
012722 
012712 
052737 

000207 



000004 000006 



001374 



U..DET; 



MOV 04,6)06 

RTS PC 

MOV OM.. TSE.CSP) 

BR M..RET 



M..HIM: 
000001 000002 BIS 

RT1 



OBIT0.2CSP) 



M..TRP: 



001760 



CMP (SP)»,(SP)» 
1ST (SP)» 
JMP U..DET 



SUBROUTINE M..MMM 



j RETURN TO CALLER 

I HERE IF MEMORY MANAGEMENT ADDRESS NOT FOUND 

iMOOIFY RETURN ADDRESS 

l RETURN COMMON 

i TRAP -4 AND SEGMENTATION TRAP CATCHER 

jSET CARRY IN RETURN PSU SETUP 

iRETURN WITH CARRY SET INDICATOR 



j CLEAN STACK OF INT. VALUES 

l CLEAN STACK FROM RETURN ADDRESS 

I NO MEMORY MANAGEMENT UNIT AVAILABLE 



THIS ROUTINE IS CALLED TO SET UP THE APR AND PDR 
REGISTER UITH DEFAULT VALUES AND TO ENABLE MEMORY 
MANAGEMENT, 



077406 
0000 10 
172300 



172340 

000200 
000400 
000600 
001000 
001200 
001400 
007600 
000001 



M..MMM: 



10* j 



177572 



INPUT: 


NONE 




OUTPUT: 


ALL PDRS ARE PRESET UITH 77406 




APRO IS PRESET 


WITH 




APR1 


200 




APR2 " 


400 




APR? 


7600 




MM IS ENABLED 




PUSH 


R0.R1.R2 


j SAVE 


MOV 


077406, RO 


iGET PAGE DESCRIPTOR REGISTER 


MOV 


08..R1 


i SETUP FOR 6 FDR'S 


MOV 


OKI5DRO.R2 


iGET KISDRO ADDRESS 


MOV 


RO.CR?)* 


1 SETUP NEXT PDR 


DEC 


Rl 


l COUNT SETUPS 


BNE 


101 


/'£ IF MORE TO 00 


MOV 


0KISAR0.R2 


i GET KISAR BASE ADDRESS 


CLR 


fR2)* 


; SETUP KISAR 


MOV 


0200 ,(K2)> 


{SETUP KISAR 1 


MOV 


0400, CR2)* 


I SETUP KISAR 2 


MOV 


0600. (R2)* 


iSETUP KISAR 3 


MOV 


01000, (R2)* 


1 SETUP KISAR 4 


MOV 


01200, CR2)* 


iSETUP KISAR 5 


MOV 


01400, (R2)» 


i SETUP KISAR 6 


MOV 


07600, SR2 


iSETUP KISAR 7 TO I/O PAGE 


BIS 


06ITO,SRO 


j ENABLE MEMORY MANAGEMENT 


POP 


R2.R1.R0 


I RESTORE REGS. 


RETURN 




iBACK TO CALLER 


.SBTTL 


$ , .MAP MAPPING 


ROUTINE 



SETUP 



J2 



IECll A 


DIAGNOSTIC 


MACRO t 


$ t% MAP MAPPING 1 


ROUTINE 




cM7 








218 








219 








220 








^^i 








->->■? 








V. 1. 1 








223 








224 








225 








^26 








221 








228 








229 








230 








231 








232 








233 








234 








235 








236 








237 


002116 






238 


002122 






239 


002136 


00000 £ 




240 


002140 


000137 


002316 


241 


002144 


004737 


002006 


242 


002150 


013700 


007022 


243 




000006 




244 








245 








246 


002170 


042700 


176000 


24 7 


002174 


013701 


007024 


248 




000012 




249 








250 








251 


002224 


060001 




252 


002226 


042737 


OOOC01 


253 


002234 


020166 


000006 


254 


00224C 


002023 




255 


002242 






256 


002262 


052700 


000001 


257 


002266 






258 


002306 


000403 




259 


002310 


016637 


000006 


260 


002316 






261 


002322 


012616 




262 


002324 


000207 




263 








264 








265 
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SEQ 22 



SUBROUTINE j 



$. .MAP 



*.,MAP: 



10$ 



177776 



172354 



1$ 

2$ 



THIS ROUTINE IS USED TO MAP UITH APR6 TO THE PHYSICAL MEMORY 
ABOVE 28. K AND COMPARE DMA READ AND WRITE DATA 

INPUT: CJP) -RETURN ADDRESS 

2CSP) -100 OCTAL BYTE BLOCK OFFSET 
4CSP) -MAPPING POINTER 

OUTPUT: KERNEL APR6 IS MAPPED TO BUFFER START ADDRESS 

MAPPING POINTER IS SET TO BASE ADDRESS OF APR6-140000 

CARRY IS SET IF NO MEMORY AVAILABLE 

BREAKPOINT TRAP, IF YOU TRY TO MAP TO CUM (0-4,10 

AUTHOR: ALBERT BREM CSS MUC 16 -JAN -79 



iSAVE REGISTERS 
10*iD0NT MAP TO SYSTEM AREA 
iDONT MAP TO SYSTEM AREA 
{LEAVE 

jENABLE MM. SETUP OEFAULT MAPPING 
jSAVE HIGHEST MEMORY LOCATION 

I COMPUTE 100 OCTAL BYTE BLOCKS 



I SAVE MEMORY EXTENSION 

I COMPUTE ADDITIONAL BLOCKS 

j TOTAL BLOCKS OF 32. WORDS MEMORY 

j CLEAR CARRY 

lIS MEMORY AVAILABLE? 

jYES 

iSAVE CURRENT PSW 

{SET CARRY FOR ERROR INDICATION 

i " 

iDONT TOUCH APR6 

|MAP TO BUFFER AREA 

jRESTORE REGISTERS 

j CLEAN STACK OF ARGUMENT 

I BACK TO CALLER 



PUSH 


R0,R1 


IF 6CSP) GE 0200 GOT( 


BPT 




JMP 


21 


CALL 


M . . MMfl 


MOV 


MEMENO.RO 


.REPT 


6 


ROR 


RO 


.ENDR 




6IC 


#176000, RO 


MOV 


MEMEND*2,R1 


,REPT 


10. 


ASL 


Rl 


.ENDR 




Ar"« 


R0,R1 


BIC 


oeiTO.SXJPS 


CMP 


R1.6CSPJ 


BGE 


1« 


PREAD 


RO 


BIS 


OflIT0.RO 


PSET 


RO 


BR 


2$ 


MOV 


6(SP),KISAR6 


POP 


Rl.RO 


MOV 


(SP)».(SP) 


RETURN 





I<2 







JECll-A DIAGNOSTIC 


MACRO h 


267 






268 






269 






270 






271 






272 






273 






274 






2?5 






276 






277 






278 






279 






280 






281 






282 






283 






284 002326 


012746 


177776 


285 002332 


066616 


000002 


286 002336 


017616 


000000 


287 002342 


042716 


177)00 


288 002346 


006316 




289 002350 


021627 


000004 


290 002354 


101413 




291 002356 






292 002366 






293 002400 


000137 


001000 


294 002404 


062716 


002416 


295 002410 


017616 


000000 


296 002414 


000136 




297 002416 


002424 




298 002420 


002432 




299 002422 


002470 




300 002424 






301 






302 






303 






304 002424 


011637 


007172 


305 002430 


000002 




306 






307 






308 






309 002432 


017646 


000010 


310 002436 


016676 


00O010 


311 002444 


062716 


000002 


312 002450 


016636 


000006 


313 002454 


012666 


000004 


314 002460 


012666 


000004 


315 002464 


005726 




316 002466 


000002 




317 






318 






319 






320 0024/0 


017646 


000004 


321 0024 74 


011646 




322 0024 76 


062716 


000002 


323 002502 


012636 
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.SBTTl. I..EMT 
SUBROUTINE: *. .fcMT 



SEQ 23 



000000 



THIS ROUTINE HANDLES ALL EMT -TRAPS THAT MIGHT OCCUR 
IN A DIAGNOSTIC PROGRAM, AND DIRECTS THE PROGRAM TO 
CONTINUE AT THE APPROPRIATE FUNCTION SUBROUTINES. 



INPUT : 
OUTPUT : 
AUTHOR ; 

$..EMTj 



2CSP) 
(SP) 

NONE 



' PS 
PC 



BERT HUBER CSS/DP MUNICH 14-JULI-76 



1$ 



EMTTBL 



.ENABL 

MOV 

ADD 

MOV 

BIC 

ASL 

CMP 

BLOS 

WRITE 

DUM* 

JMP 

AOD 

MOV 

JMP 

EMTO 

EMT1 

EMT2 



LSB 
0-2, -CSP) 
2(SP),(SP) 

qcsp).(SP) 

#177400. (SP") 

CSP) 

CSP),OEMTTND 
1$ 
MILEMT 

0CT.2CSP) 

S01000 

OEMTTBL,(SP) 

SCSP),CSP) 

Q(SP)f 



j REBUILD EMT -ADDR. 

ii 



jGET EMT-CODE 
{EXTRACT EMT-NR. 
I CONVERT TO TABLE -OFFSET 
•EMTTBL-2jVALI0 EMT-NR.? 
;IF LOS, YES 
jILLEGAL EMT 

J 

{RESTART PROGRAM 

{GET FUCTION CODE ADDR. 

J 

I ENTER FUCTION SUBROUTINE 



EMTTNO: 

; SUBROUTINE TO SAVE SCOPE -LOOP ADDR. 



EMTO: 



MOV 
RTI 



CSP), SCOP AD 



{SAVE ADDR, OF SCOPE -LOOP 
iRETURN TO CALLER 



; SUBROUTINE TO SETUP A VECTOR 



EMTls 



MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
1ST 
RTI 



SIO(SP), (SP) {GET POINTER TO VECTOR ADDR 



10(SP),3(SP) 

02, (SP) 

6(SP),0(SP.W 

CSP)*,4(SP) 

(5P)*,4(SP) 

(SP)» 



SUBROUTINE TO RESET A VECTOR 

EMT2i MOV W4(5P),-(SP) 
MOV CSP), -CSP) 
ADD *2, (SP) 
MOV CSP)*,S(SP)* 



{SETUP VECTOR 
{POINT TO NEU PS 

{SETUP NEW PS 
{CLEAN UP STACK 

i 

I 

{RETURN TO CALLER 



{GET POINUR TO VECTOR A 
lOUPLTCATE IT 
{BUILD ADDRESS OF VECTOR 
{RESET VECTOR 



IEC11-A DIAGNOSTIC 
$..EMT 



324 005504 

325 002512 

326 002520 

327 002522 



012776 
016666 
012616 
000002 



L n 



a 
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000004 
000002 



177774 
000004 



MOV 
MOV 
MOV 
RTI 



*4,Q-4(SP) 
2(5P),4(SP) 
(SP) + .(SP) 



jRESET 
j CLEAN 



SEQ 24 



VECTOR 

S^ACK 



♦ 2 



j RETURN TO CALLER 



M2 



IEC11-A DIAGNOSTIC 


MACRO M1200 3C 


329 








330 








331 








332 








333 








334 








335 








336 








33? 








338 








339 








340 








341 








342 








34 3 








344 








345 








346 








347 








348 








349 








350 








351 002524 


012746 


177776 




352 002530 


066616 


000002 




353 002534 


017616 


000000 




354 002540 


042716 


177400 




355 002544 


005737 


007166 




356 002550 


001421 






357 002552 


005737 


007160 




358 002556 


100020 






359 002560 


021637 


007166 




360 002564 


001415 






361 002566 








362 002576 








363 002610 








364 002614 


011637 


007166 




365 002620 


032737 


040000 


007160 


366 002626 


001022 






367 002630 








3u8 002640 








369 002652 








370 002662 








371 002674 


032737 


020000 


007160 


372 002702 


001414 






373 002704 


005276 


000002 




374 002710 


001011 






375 002712 








376 002722 








377 002734 


032737 


040000 


007160 


378 002742 


001014 






379 002744 


032737 


100000 


007160 


380 002752 


001010 






381 002754 


032737 


010000 


007160 


382 002762 


001004 






383 002764 








384 002774 


032 737 


010000 


007160 


385 003002 


001004 
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.SBTTL *..TRP 

; *■ 

l SUBROUTINE: I . . TRH 



i THIS ROUTINE HANDLES ALL TRAPS TO LOC 34 THAT MI^HT 

{ OCCUR IN A CSS-DIGNOSTIC PROGRAM. 

5 AS THE TRAP INSTRUCTION IN THIS DIAGNOSTICS IS ONLY USED TO 

5 INDICATE AN ERROR CONDITIO:;, THIS TRAP-HANDLER IS A (PSEUDOO 

j SWITCH-REGISTER CONTROLLED ERROR HANDLER, FOR THE DEFINITION 

j OF ALL AVAILABLE ' SWITCH' -OPTIONS , REFER TO SUBROUTINE "$..IAE" 



SEQ 25 



I LATER IN THIS LISTING, 

! INPUT; 2CSP) 
1 CSP) 

5 LOW ORDER BYTE OF TRAP 



PS 
PC 
INSTRUCTION 



* ERROR NUMBER 



OUTPUT; 
AUTHOR; 



DEPENDING ON OPTIONS SELECTED 

BERT HUBER, CSS/DP MUNICH 14 -JUL -76 



S..TRP; 



2$ 
3$ 



4$ 



5$ 



6$ 



;.PSECT 

.ENABL 

MOV 

ADD 

MOV 

BIC 

TST 

BEQ 

TST 

BPL 

CMP 

BEQ 

WRITE 

DUMP 

GOTO 

MOV 

BIT 

BNE 

WRITE 

DUMP 

WRITE 

DUMP 

BIT 

BEQ 

INC 

3NE 

WRITE 

DUMP 

BIT 

BNE 

8IT 

BNE 

BIT 

BNE 

WRITE 

BIT 

BNE 



CSSMON 

LSB 

0-2, -CSP) 

2CSPJ.CSP) 

B(SP).CSP) 

0177400, (SP) 

*.,ER 

2% 

PSDSWR 

3$ 

CSP), I. .ER 

31 

MILSCP 

0CT,2CSP) 

START 

(SP).t. .ER 

06IT14, PSDSWR 

4i 

MERROR 

DEC.(SP) 

MERRP2 

0CT.2CSP) 

0BIT13, PSDSWR 

5$ 

S2CSP) 

5* 

MERCOV 

DEC, CSP) 

4BIT14, PSDSWR 

6$ 

06IT15, PSDSWR 

6$ 

0BIT12, PSDSWR 

6$ 

MERHLT 

0BIU2, PSDSWR 

7$ 



♦ 2 



{REBUILD TRAP ADDRESS 

j GET TRAP CODE 
.EXTRACT ERROR NUMBER 
;FIRST ERROR OCCURENCE 
1 IF EQ, FIRST PASS 
j SCOPE LOOP ? 

5 SAME SCOPE LOOP ? 

} IF EQ, YES 

{ILLEGAL SCOFF LOOP 

,Dl»MP ADDRESS OF ERROR 

{RESTART PROGRAM 

{STORE ERROR NUMUER 

{INHIBIT PRINTOUT ? 

{IF NE, YES 

{PRINT ERROR MESSAGE PART 1 

{DUMP ERROR NUMBER 

{PRINT ERROR MESSAGE PART 2 

{DUMP ERROR PC *2 

{COUNT ERRORS ? 

1 IF EQ, NO 

{COUNT ! 

I IF EQ, OVERFLOW 

{ERROR COUNTER OVERFLOW 

{DUMP ERROR NUMBER 

{PRINT ? ? 

j IF NE, NO 

{SCOPE LOOP ? 

j IK SCOPE. NO PRINT 

iHALT AFTER ERROR SELECTED 

I IF NE, YES 

j SI OP MESSAGE 

{HALT ? 

{IF EQ, YES 



N2 



IECU-A 
$,.TRP 


DIAGNOSTIC 
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386 


003004 


032737 


004000 


007160 


BIT 


tfBITU.PSDSWR 


j IMMEDIATE CONTINUE ? 


387 


003012 


001770 






BEQ 


61 




j IF NE,YES 


38S 


003014 


042737 


004000 


007160 7$: 


BIC 


*BITll,PSDSWR 


j SCOPE LOOP ? 


369 


003022 


005737 


007160 




1ST 


PSDSWR 




J 


390 


003026 


100005 






BPL 


8* 




I IF PL, NO 


391 


003030 








STCKUP 








392 


003034 


005726 






TST 


CSP)* 




{ADJUST STACKPOINTER 


393 


003036 


000177 


004130 




JMP 


QSCOPAD 




/ENTER SCOPE LOOP 


394 


003042 


00503 7 


007166 


8$; 


CLR 


$. ER 




{RESET ERROri NUMBER 


395 


003046 


005726 






TST 


(SP)» 




{READJUST STACK 


396 


003050 


062/16 


000002 




ADD 


42.CSP) 




i BUILD RETURN ADDRESS 


397 


003054 


000002 






RTI 






{RETURN TO CALLER 



S£Q 26 



B3 



IEC11 A DIAGNOSTIC 



399 

400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

422 003056 

423 003066 

424 003072 

425 003102 

426 003112 

427 005124 
428 
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.SBTTL I..IOT 



SEQ 27 



SUBROUTINE; I..IOT 



THIS SUBROUTINE HANDLES ILLEGAL TRAPS OR INTERRUPTS. 

IF SUCH A TRAP OR INTERRUPT OCCURS, A HESSAGE IS 

PRINTED. SHOWING THE VECTOR TRAPPED TO, ANO THE PROGRAMS PC 

WHERE IT WAS INTERRUPTED. 

THE PROGRAM HALTS THEN. AND MUST BE RESTARTED. 



INPUT: 

OUTPUT; 
AUTHOR; 



6CSP) 

4CSP) 

2(SP) 

CSP) 



PS Of PROGRAM 
PC Of PROGRAM 
PS Of VECTOR 
PC Or VECTOR *2 



MESSAGE TO THE OPERATOR 
BERT HU6ER, CSS/DP MUNICH 



22 -JUL -76 



162716 000002 



000777 



i .PSECT CSSMON 
.ENABL LSB 
1..1QT1 WRITE MILTR1 



SUB 

DUMP 

WRITE 

DUMP 

BR 

♦DSABL 



*2 . ( SP ) 
OCT.(SP) 
MILTR2 
0CT.4CSP) 

LSB 



iSENO FIRST MESSAGE PART 

jCOMPUTE VECTOR 

lOUMP VECTOR ADDRESS 

I SEND SECONO MESSAGE PART 

j DUMP PROGRAM PC 

lHANG UP SYSTEM 



C3 



IECll-A 

$.,PWR 

430 
431 
432 

433 
434 
435 
4 36 

437 

43a 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

456 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

4 76 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 



DIAGNOSTIC 



003126 

003142 

003144 

003146 

003154 

003160 

003162 

003166 

003170 

003172 

003174 

003176 

003202 

003204 

003210 

003214 

003220 

003226 

003242 

003246 

003250 

003^60 

003264 

003266 

003274 

003302 

003306 

003310 

003316 

003324 

003332 

003336 

001340 

003350 

003356 



010627 
000000 
012737 
013727 
000000 
013727 
000000 
000777 
005002 
005202 
020227 
001374 
013706 
005037 
005037 
012737 

013727 
000000 

005737 
001375 

013737 
005737 
001411 
013737 

112737 
005737 
001407 

015/37 

000002 
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.SBTTL l,,PWA 



SEQ 28 



003172 000024 
007152 

007150 



177777 

003144 
007152 
007150 
003126 000024 

005700 



007152 



003160 007152 
007152 

003246 005700 

000012 177566 
003166 



003166 007150 



j SUBROUTINE: 



I..PWR 



j THIS ROUTINE IS DIRECTLY ENTERED AFTER EACH POWER-FAIL TO 
j HANDLE THE NECESSARY REGISTER SAVE OPERATIONS, AND IS USED 
jAFTER THE POWER-UP INTERRUPT TO RESTORE THE SAVED REGISTERS 
.AFTER A SUCCESFULL POWER-FAIL RESTART, A SHORT MESSAGEW IS PRINTED. 



i AUTHOR; 



\ - 



t..PWRs 
lis 



3$s 
5$: 

2*5 



8$ 
4$ 



7$ 



6* 



i 



MZ001 



j.PSECT 

.ENABL 

PUSH 

MOV 

.WORD 

MOV 

MOV 

.WORD 

MOV 

.WORD 

BR 

CLR 

INC 

CMP 

BNE 

MOV 

CLR 

CLR 

MOV 

POP 

MOV 

.WORD 

WRITc 

TST 

BNE 

SET6 

MOV 

TST 

BEQ 

MOV 

SET6 

MOVB 

TST 

BEQ 

WRITE 

MOV 

RTI 

.DSABL 

.SBTTL 



BERT HUBER, CSS/DP MUNICH 27-JULY-76 
SAVE THE OUTFLAG IN 3$ ANO RESTORE IT 
AFTER PRINTOUT OF THE POWERFAIL MESSAGE 



j SUBROUTINE 



J 



mi«iiiiiiii 



CSSMON 

LSB 

R0,Rl,R2,R3,R4 

SP.CPO* 

o 

*2I,©*24 

OUTFLG. (PC)* 



INFLAG, (PC)* 



R2 

R2 

R2, $177777 

.-6 

II. SP 

OUTFLG 

INFLAG 

01. .PWR,0*24 

R5,R4,R3.R2.R1 

I.. MSP, (PC)* 



MPWRFL 

OUTFLG 

41 

Q4TKS 

31, OUTFLG 

OUTFLG 

81,1. .MSP 

sotps 

O12,S0TPB 

5$ 

6$ 

PROMES 

51. INFLAG 

LSB 
I, .RSV 

i. .RSV 

* * ■ « « * 



,R5 



RO 



SAVE STACK -POINTER 

STACKPOINTER-SAVE-AREA 

SETUP VECTOR FOR RESTART 

SAVE PRINT FLAG jMZOOl 

SAVE FOR FLAG jMZOOl 

SAVE INPUT FLAG 

SAVE WORD FOR INPUT FLAG 

WAIT FOR POWER DOWN 

OELAI 

THE 

POWER UP START 

FOR 1SEC0N0 

REBUILD STACKPOINTER 

ALLOW PRINTOUT OF PWFRL MES, 
ii 

REBUILD VECTOR SETUP 



jMZOOl 



SAVE OLD MESSAGE POINTER 
SAVE WORD FOR OLD MESSAGE POINTER 
SENO POWER -FAIL -MESSAGE tMZOOl 
WAIT FOR OUTPUT COMPLETE jMZOOl 

jMZOOl 
ENABLE FURTHER TTY -INTERRUPTS 
RhSTORE FLAG IF IT WAS SET jMZOOl 
ir AN OUTPUT BEFORE PWRFl WAS RUNNING 

THEN RESTORE OLD MESSAGE POINTER 

ANO ENABLE INT IN TPS 

AND START INTERRUPT 

ir AN INP FLG BEFORE PWRFL WAS NOT SET 

GOTO 6$ 

ELSE WRITE » 

RESTORE INPUT FLAG IF IT WAS SET 

CONTINUE WITH PROGRAM 



J!?ASv A 



D3 



DIAGNOSTIC 
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SEQ 29 



487 
488 

489 
490 
491 

492 

493 
494 

495 
496 
497 
498 
499 
500 
501 
502 
503 

504 003360 

505 003374 
506 



l THIS ROUTINE SAVES R0-R5 ONTO THE STACK 



000176 000014 



; INPUT t 


(SP) 


■ 




CALLER PC 




1 OUTPUT} 


(SP) ■ 

2(SP) ■ 

4(SP) ■ 

6CSP) ■ 

10C5P) ■ 

12(SP) ■ 

14(SP) 






R5 CONTENT 
R4 CONTENT 
R3 CONTENT 
R2 CONTENT 
Rl CONTENT 
RO CONTENT 
CALLER PC 




1 AUTHOR} 


BERT HU6ER, 


CSS/DP MUNICH 


12-APR-76 


j.PSECT 
.ENABL 
*..RSVi PUSH 
JMP 
.DSABL 


CSSMON 

LSB 

R0.R1.R2 

Q14CSP) 

LSB 


,R3 


,R4 


.R5 

j RETURN TO 


CALLER 



IECll-A 
$♦ t RRS 

508 
50<* 
510 
511 
512 
513 
514 
515 
516 
51V 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 



E 



3 



DIAGNOSTIC 
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,SBTTL *.,RRS 



SEQ 30 



SUBROUTINE j I..RRS 



THIS SUBROUTINE RESTORES R5-R0 FROM THE STACK 



INPUT: 



(SP) 

2(SP) 

4(SP) 

6(SP) 

10CSP) 

12(SP) 

14CSP) 

16(SP) 



CALLER PC 
SAVEO R5 
SAVED R4 
SAVED R3 
SAVED R2 
SAVED Rl 
SAVED RO 
OLD CALLER PC 



OUTPUT: 
AUTHOR: 



REGISTERS ARE RESTORED AND STACK IS CLEANED 
BERT HUBER. CSS/DP MUNICH 12-APR-76 



003400 005726 
003402 

003416 005726 

003420 000176 



177760 



: .PSECT CSSMON 

.ENABL LSB 

$..RRS: TST (SP)* i POINT TO SAVED R5 

POP R5,R4,R3,R2,Rl.R0 

TST (SP>* {SKIP OLD CALLER PC 

JMP S-20C5P) 

.DSABL LSB 



{RETURN TO CALLER 



h5 



IEC11-A DIAGNOSTIC 


MACRO M1200 30 


-MAR -84 


16 j 02 PAGE 12 




$..KBI 














536 








. S8TTL 


*, .KBI 




537 






; ♦ 








538 
539 
540 






j SUBROUTINE: 


*. .KBI 








l 








541 






l THIS 


ROUTINE 


IS ENTERED IMMEDIATELY AFTER AN INTERRUPT 


542 

543 
544 






j FROM 


TTY-KEYBOARD. ALL REGISTERS ARE SAVED ACROSS CALL, 






\ INPUT: 


2(SP)- PS 




545 






• 




CSP) 


PC 


546 






i 








54 7 






j OUTPUT: 


NONE 




548 






J 








549 






; AUTHOR: 


BERT HUBER, CSS/DP MUNICH 5 -APR -76 


550 






1 - 








551 








i .PSECT 


CSSMON 




552 








.ENABL 


LSB 




553 003424 


005737 


007152 


*..KBI 


TST 


OUTFLG 


HI OUTPUT PUNNING ? 


554 003430 


001422 






BEQ 


4$ 


in IF NE, IGNORE INTERRUPT 


555 003432 








PUSH 


RO 


I {SAVE 


556 003434 


005037 


177560 




CLR 


QOTKS 


1 m INHIBIT INTERRUPT 


557 003440 


013700 


177562 




MOV 


BOTKB.RO 


M J GET CHARACTER 


558 003444 


012737 


0001C0 177560 




MOV 


0100.Q0TKS 


m RE -ENABLE 


559 003452 


042700 


000200 




:nc 


0200, RO 


j M MASK OUT ASCII 


560 003456 


022700 


000003 




CMP 


03, RO 


in IS IT <CNTRL C> ? 


561 003462 


001003 






BNE 


13$ 


Mi IF NOT. RETURN 


562 003464 


012737 


007777 007170 




MOV 


07777, SPEFLG 


UlScT A SPECIAL FLAG 


563 












ill THIS FLAG IS USED TO FINISH 


564 












miA RUNNING PRINTOUT AND THEN TO 


565 












M {REMEMBER THAT <CNTRL C> WAS HIT 


566 














567 003472 






13$: 


POP 


RO 


t M REBUILD 


568 0034 74 


000436 






BR 


31 


1 }) RETURN TO CALLER 


569 0034 76 


004/37 


003360 


4$: 


CALL 


t, .RSV 


I mSAVE ALL REGISTERS 


570 003502 


013700 


17 7562 




MOV 


S0TKB.RO 


I ; iGFT INPUT BYTE 


571 003506 


042700 


0O0200 




BIC 


O200.R0 


t j iBUILD REAL ASCII 


572 003512 


122700 


000003 




CMPB 


03.R0 


i j j<CNTRL C> FUNCTION ? 


573 003516 


001003 






BNE 


1$ 


1 ii IF NE . NO 


574 003520 






MSPE: 








575 003520 


004737 


006136 




CALL 


$. .PRO 


I i iSEND PROMPT STRING 


576 003524 


000420 






BR 


2$ 


1 j i RETURN 


577 003526 


005737 


007150 


11: 


TST 


INF LAG 


Ml INPUT FLAG SET ? 


578 003532 


001415 






BEQ 


2$ 


Mi IF EQ. NO 


579 003534 


004737 


0O3574 


5$: 


CALL 


* . . INP 


l : j PROCESS INPUT 


580 003540 


020027 


000015 




CMP 


R0.015 


inUAS IT A <CR> ? 


581 003544 


001010 






BNE 


21 


I M IF Nfc . NO 


58? 003546 


005037 


007150 




CLR 


INFLAG 


l uRESET INPUT MODE FLAG 


583 003552 


012701 


007026 




MOV 


0KBBUFF.R1 


mi RE BUILD BUFFER POINTER 


584 003556 


010137 


007146 




MOV 


Rl.KBBPNT 


Ml " " *' 


585 003562 


004 737 


004010 




CALL 


1, .IAi 


1 j |ANALY/E INPUT 


586 003566 


004737 


QQ34QQ 


2$: 


CALL 


$. .RRS 


I i i RE STORE, REGISTERS 


58 7 QQ3572 


000002 




$i\ 


RTI 




tuR&TURH TO CALLER 


588 








*D5ABl 


LS& 





SEQ 31 



b6 



IECll-A DIAGNOSTIC 
$ % % INP 

590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
60? 
603 
6(K 
605 
606 
607 
608 
609 
610 
611 
612 
613 

614 003574 013701 

615 003600 012702 

616 003604 022701 

617 003610 001015 
616 003612 022700 

619 003616 001415 

620 003620 122700 

621 003624 001407 

622 003626 005037 

623 003632 

624 003642 000451 

625 003644 122700 

626 003650 001436 

627 003652 122700 

628 003656 0O1016 

629 003660 005737 

630 003664 001005 

631 003666 010637 

632 003672 012700 

633 003676 004712 

634 003700 020127 

635 003704 001434 

636 003706 114100 

637 003710 004712 

638 003712 000431 

639 003714 005737 

640 003720 001407 

641 003722 

642 003724 012700 

643 003730 004712 

644 003732 005037 

645 003/36 

646 005740 004712 
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.SBTTL I,. INP 



SEQ 32 



007146 
006122 
007146 

000025 

000177 

007150 

000025 
000177 
007162 

007162 

0O005 7 

007026 



007162 

000057 
007162 



INPUT -HANDLER FOR ALL TERMINALS 
DIAGNOSTIC SOFTWARE GENERATED NOW 



J ♦ 

j SUBROUTINE: I,. INP 

!■■•■■ -•■■■■ 

;THIS SUBROUTINE IS THE 

;USED IN ALL CSS -MUNICH 

jANO LATER. 

iTHE SPECIAL FACTIONS HANDLED OY THIS ROUTINE ARE: 

I <CNTRL U> FOR LINE RUBOUT 

j <DELETE> FOR CHARACTER RUBOUT 

i ALL OTHER INPUT IS HANDLED AS NORMAL ASCI -TEXT AND STORED 

j IN THE KEYBOARD INPUT BUFFER, 

I INPUT: (SP) 
} RO 

l OUTPUT: NONE 
i 



CALLER PC 
CURRENT INPUT 



CHARACTER 



j AUTHOR 


• 


BERT HUBER CSS/OP 


MUNICH 


I - 


. IDENT 


/Vl.O' 




i 


♦PSECT 


CSSMON 






.ENABL 


LSB 




$,.INP: 


MOV 


KBBPNT.R1 


iiiGET CURRENT BUFFER -POINTER 




MOV 


<M..KB0,R2 u 


jPOINT TO KEYBOARD-ECHO 




CMP 


♦KBBEND.R1 u 


j INPUT -BUFFER FULL? 




BNE 


1* n 


j IF NE, NO 




CMP 


$25, RO n 


t<CNTRL U>? 




BEQ 


2$ ii 


;IF EQ. YES. 




CMPB 


*177,RO || 


j<DELETE>? 




BEQ 


1* 11 


iIF EQ. YES. 




CLR 


INTLAG i 


iRESET INPUTFLAG 




WRITE 


MKPOVF j j 


iPRINT OVERFLOW -MESS. 




BR 


7* I l 


i PROMPT FOP INPUT 


1$: 


CMPB 


025, RO i 


i<CNTL U>? 




BEQ 


61 n 


iIF NE, NO 


21: 


CMPB 


O177.R0 n 


i<DELETE>? 




BNE 


4* i . 


iIF N= t NO 




TST 


RU6FLG i j 


t first Rueour? 




BNE 


3> n 


iIF NE. NO 




MOV 


SP.RUBFLG i 


iFLAG RUBOUT MODE 




MOV 


«'/,R0 i 


jPRINT "/" 




CALL 


SR2 i 


■ " 


3$j 


CMP 


Rl.OKBBUFF i 


iFULL LINE DELETED? 




BEQ 


INP..E i 


iIF EQ. YES 




MOVB 


•(HD.RO 


luNO, REMOVE CHARACTER 




CALL 


SR2 i 


lANO ECHO IT 




BR 


INP . . E i 


iWAIT FOR NEXT INPU1 


4$: 


TST 


RUBFLG i 


i RUBOUT MODE? 




BEQ 


5* j 


tIF EQ, NO 




PUSH 


RO 


lYES, SAVE CURRENT INPUT 




MOV 


0'/,R0 l 


jNO OF RUBOUT 




CALL 


9R2 i 


i iECHO "'" 




CLR 


RUBFLG i 


I i RESET RUBOUT MODE FLAG 




POP 


RO i 


it GET CURRENT INPUT AGAIN 


5*1 


CALL 


ma i 


UECHO IT 



-13 



IECll-A 


DIAGNOSTIC 


MACRO 


**.INP 








64 7 


003742 


110021 




648 


003744 


000414 




649 


003746 


012700 


000136 


650 


003752 


004 712 




651 


003754 


012700 


000125 


65? 


003760 


004 712 




653 


003762 


005037 


007162 


654 


003766 


012701 


007026 


655 


003772 


004 737 


006136 


656 


003776 


010137 


007146 


657 


004002 


116100 


177777 


658 


004006 


000207 




659 
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MOVB 


R0.CR1)* 




BR 


INP..E 


6*j 


MOV 


0136, RO 




CALL 


8R2 




MOV 


0'U.RO 




CALL 


SR2 




CLR 


RUBFLG 


7$t 


MOV 


*KBBU>'F,R1 




CALL 


♦ .PRO 


INP. 


,E: MOV 


Ri.KBBPNT 




MOVB 


-URD 9 RO 




RETURN 






.DSABL 


LSB 



SEQ 33 



,SAVE 
I WAIT 
i ECHO 



IN IPUT BUFFER 
FOR NEXT INPUT 



I ECHO "U" 

i 

I LEAVE RU60UT MODE 

jRESET INPUT BUFFER POINTER 

I PROMPT FOR INPUT 

I SAVE POINTER 

j SAVE LAST CHARACTER 

, RETURN TO CALLER 



13 



lECil-A 


DIAGNOSTIC 


MACRO M1200 


30 -MAR -84 


16:02 PAGE 14 




i. + iM 
















661 










.SBTTL 


$. .IAY 




662 








j ♦ 








663 
664 
665 








i SUBROUTINE: 


$. .IAY 


















666 








I LEGAL 


INPUT TYPES ARE: 




667 
















668 










ERR- 


FOR ERROR - 


HANDLING 


669 










DMP- 


FOR CORE -DUMP OPTIONS 


670 










SET- 


FOR DEBUGGING OPTIONS 


671 
672 
673 










NONFORMATTED INPUT FOR SPECIAL REQ, 








! INPUT: 


CSP)- 


RETURN PC 




674 








{OUTPUT 


: 


NONE 




675 
















676 
677 
678 








! AUTHOR 


: 


BERT HUBER, CSS/DF 


MUNICH 28-JUN 76 










t.PSECT 


CSSMON 




679 










.ENABL 


LSB 




680 


004010 


122711 


000015 


$ . . IAY j 


CMPB 


*15,CR1) it 


j<CR>? 


681 


004014 


001440 






BEQ 


IAY,.E n 


lIF EQ., SKIP ANALIZATION 


68^ 


004016 


005737 


007174 


3S* 


TST 


l.tASF j j 


lOONT ANALYZE If ASCII INPUT RUNNING 


683 


004022 


001035 






BNE 


IAY..E j: 


iIF NE, YES. 


684 


004024 


122711 


000104 




CMPB 


O'D.CRl) (i 


i 'DMP" REQUESTED? 


685 


004030 


001003 






BNE 


1* i 


j IF NE, NO 


686 


004032 


00473 7 


004210 




CALL 


$ . . IAD ii 


jANALIZE DUMP REQUEST 


687 


004036 


000427 






BR 


IAY..E n 


j RETURN TO CALLER 


688 


004040 


122711 


000123 


l$i 


CMPB 


0'S.BRI n 


j 'SET" REQUESTED? 


689 


004044 


001003 






BNE 


2$ i 


IF NE, NO 


690 


004046 


004737 


004402 




CALL 


*..IAS i 


j ANALYZE SET REQUEST 


691 


004052 


000421 






BR 


IAY..E i 


l RETURN TO CALLER 


69? 


004054 


122711 


000105 


2$: 


CMPB 


**E,SR1 j 


I "ERR' 1 -REQUEST? 


693 


004060 


001003 






BNE 


4* i 


I IF NE. NO 


694 


004062 


004737 


004472 




CALL 


S..IAE ; 


t ANALYZE ERROR REQUEST 


695 


004066 


000413 






BR 


IAY..E j 


jRETURN TO CALLER 


696 


004070 


122711 


000101 


4$: 


CMPB 


O'A.ORl i 


i 'ABO' 1 REQUESTED ? 


697 


004074 


001003 






BNE 


5» i 


1 IF NE, NO 


698 


004076 


004737 


004120 




CALL 


*,.IAA , 


,ANAt Y7E ABO-REQUEST 


699 


004 102 


000405 






BR 


IAY. .E i 


jRETURN TO CALLER 


700 


004 104 


005737 


007156 


5$: 


TST 


INPREQ j 


i NO SYNTAX ERROR IF SPECIAL INPUT RUNNING 


701 


004110 


001002 






BNE 


IAY..E i 


• " 


702 


004H2 


004 7 37 


006262 




CALL 


*..STX i 


j SYNTAX ERROR 


703 


004116 


000207 




IAY..E: 


RETURN 


; 


I RETURN TO CALLER 


704 










.OSABL 


LSB 





SEQ 34 



J3 



IfcCU-A 
$..IAn 

706 

707 

708 

709 

710 

711 

712 

71? 

714 

715 

716 

717 

718 

719 

720 

721 

722 

725 

724 

725 

726 

727 

72S 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

74 3 

744 

745 

746 

74 7 

748 

749 

750 

751 

752 



DIAGNOSTIC 
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SEQ 35 



.SBTTL $..IAA 



i SUBROUTINE: 



i. .IAA 



; LEGAL INPUT IS "ABO" 



INPUT. 
OUTPUT 



NONE 

IF IN THE PROGRM THE LABEL 



»..SPC"" IS USED, 



THE STACK WILL BE INITIALIZED AND A JUMP TO 
THIS LABEL IN THE DEVICE TEST PROGRAM IS PERFORMED. 
IF THIS LABEL IS NOT USED, THE STACK IS INITIALIZED 
AND A JUMP TO THE BEGIN OF THE DEVICE -TEST PROGRAM 
IS PERFORMED. 



MZ001 



THE MACRO "PSET"ALL0iJS TO RUN THE CDM EITHER ON PDP 
OR ON LSI. 



AUTHOR: 



M. ZILLER, 



{ - 



004120 
004122 
004130 



000005 

012706 001204 
004134 012746 011342 



j.PSECT CSSMON 
.ENABL LSO 
$..IAA: RESET 

SET6 QGTKS 

MOV 0START.SP 

.IF DF $. .SPC 

MOV OI..SPC, .(SP) 

.ENOC 

.IF NDF $. .SPC 



004140 
004164 
004170 
0O4172 
004176 
004200 
004206 



012700 
005020 
020027 
001374 
012/37 
000507 



007026 
007202 
00702.6 007146 



1*1 



MOV 

.ENDC 

PSET 

MOV 

CLR 

CMP 

BNF 

MOV 

RETURN 

.DSABL 



OCDM. .E,-CSP) 
CO 

okbbuff.ro 

CRO)* 

RO.0PROMES 

1* 

*KBBUKF,KBBPNT 

LSB 



CSS/DP MUNICH OCT. 1976 

,STOP ANY ACTIONS 
iSWITCH ON TTY INT. 
jINITIALIZE STACK 

jSET THE L.ABEL ""* . .SPC"" FOR DESTINATION 

I SET END OF MONITOR FOR DESTINATION 

1 CLEAR PS jMZOOl 

I RESET BUFFERS 

J 

t !! 

{REBUILD BEQIN ADDRESS 

I GOTO POINT OF CONTINUATION 



I<3 



IECll-A 
$ . . IAA 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

76 7 

768 

769 

7 70 

771 

772 

773 

7 74 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

8Q5 



DIAGNOSTIC 



004210 
004212 
004216 
004220 
004224 
004226 
004232 
004234 
004240 
004242 
004246 
004250 
004256 
004262 
004264 
0O4274 
0042 76 
004302 



005201 
122127 
001027 
122127 
001024 
122127 
001021 
004737 
103416 
105737 
100375 
012737 
105737 
100375 

000402 
004 737 
000207 
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I ,PSECT CSSMON 



SEQ 36 



000115 

000120 

000057 

004304 

177564 

000012 
177564 

00626^ 



177566 



.SBTTL $.,IAD 



j SUBROUTINE 



$. .IAD 



MZ001 



MODIFICATION TO ALLOW THE <CR> AFTER INPUT 
TO COMPLETE. 



THIS SUBROUTINE IS ENTERED WHEN A DLJtP -REQUEST IS ANALYSED. 
DEPENDING ON HOW THE REQUEST IS TERMINATED, THERE ARE TWO 
WAYS FOR RETURN; 



A) 
B) 



WHEN TERMINATED BY <CR> THE CONTENT OF A LOCATION IS 

PRINTED AND THE RETURN IS PERFORMED 

WHEN INPUT IS TERMINATED BY A ""/""THE MONITOR WAITS 

FOR INPUT ANO LOADS THIS INPUT INTO THE EXAMINED LOCATION 



i INPUT 
j OUTPUT 

! AUTHOR: 
» 

l - 



$, .IAD: 



11$ 



12$ 



771: 
IAO..E: 

I 



i .PSECT 

.ENABL 

INC 

CMPB 

BNE 

CMPB 

BNE 

CMPB 

BNE 

CALL 

BCS 

TSTB 

BPL 

MOV 

TSTB 

BPL 

DUMP 

BR 

CALL 

RETURN 



CSP) ^RETURN ADDRESS 
MODIFIED LOCATION IF REQUESTED 

M. ZILLER, SS/DP MUNICH 



CSSMON 

LSB 

Rl jPOINT TO "M 

(R1)»,«'M ,IS II A "M" 

77$ iNO IF NE 

(R1)*,*'P jIS IT A "P" 

77$ »N0 IF NE 

(Rn*,<r / |IS IT A "/" 

77$ iNO IF NE 

$ . . NOR 

77$ 

SOTPS 

11$ 

012.SWTPB 

BOTPS 

12$ 

oct.cro) 

IAD. ,E 



OCTOBER 1976 



jRETRIEFE INPUT 

5 IS CS, INPUT FORMAT ERROR 

iIS TH$i <CR> FINISHED ? iMZOOl 

i {MZ001 

iPRINT A <LF 

;DONE ? 

jWAIl FOR COMI.E T ION 

j AND PRINT 
tGO TO END 

jURITE SYNTAX ERRgR MESSAGE, 
j RETURN TO MAIN 



L^ 



o 



1EC11-A DIAGNOSTIC 


MACRO t 


$,.IAO 






807 






808 






809 






810 






811 004304 


005000 




812 004306 


012/02 


000006 


813 004312 


121127 


000015 


814 004316 


001425 




815 004320 


121127 


000057 


816 004324 


001422 




817 004326 


142711 


000060 


818 004332 


100421 




819 004334 


121127 


000007 


820 004340 


101016 




821 004342 


006300 




822 004344 


006300 




823 004 346 


006300 




824 004350 


152100 




825 004352 


005302 




826 004354 


001356 




827 004356 


121127 


000015 


828 004 362 


001403 




829 004364 


121127 


000057 


830 004370 


001002 




831 004372 


000241 




832 004374 


000207 




833 004376 


000261 




834 004400 


000207 




835 






836 






837 






838 






839 






840 






841 






842 






84 3 






844 






845 






846 






84 7 






848 






849 004 A 02 


005201 




850 004404 


122127 


000105 


851 004410 


001024 




852 004412 


122127 


000124 


853 004416 


001021 




854 004420 


122127 


000057 


855 004424 


001016 




856 004426 


004737 


004304 


857 004432 


103413 




858 0044 34 


010037 


0044 70 


859 004440 


122127 


000057 


860 004444 


001006 




061 0044-16 


00*737 


004 304 


862 0044S2 


103403 




863 0044V4 


010077 


000010 
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SEQ 37 



} ♦ 



THIS IS THE ROUTINE GET THE OCTAL VALUE OF THE ADDRESS 



CLEAR STORAGE OF NUMBER 
CLEAR DIGIT COUNTER 
IS IT A TERMINATOR ? 
IF F.Q, YES 



BUILD REAL BINARY 

IF MI, IT WAS LOUER THAN 60 

IS IT REAL OCTAL ? 

IF HI, NO REAL OCTAL 

MIA.TIPLY 

WITH 10 IN 

OCTAL 

SET THE TRUE BITS 

COUNT DIGITS BUILT 

ALL DONE? 

IS THE LAST ♦ 1 BYTE A TERMINATOR? 

IF YES THEN SYNTAX OK 

TERMINATOR IN SET COMMAND? 

IF NOT THEN SYNTAX ERROR 

INDICATE SUCCESSFUL OPERATION 

INDICATE FAILURE 



*..NOR: 


CLR 


RO 




MOV 


46, R2 


1$: 


CMPB 


SRI, 015 




BEG) 


NOR. .E 




CMPB 


BR1.** / 




BEQ 


NOR..E 




BICB 


*60, SRI 




BMI 


NOR.ER 




CMPB 


SRI, #7 




BHI 


NOR.ER 




ASL 


RO 




ASL 


RO 




ASL 


RO 




BISB 


(R1)*.R0 




DEC 


R2 




BNE 


li 




CMPB 


SRI, 415 




BEQ 


NOR. .E 




CMPB 


SXU.O*/ 




BNE 


NOR.ER 


NOR. .E: 


CL.C 

RETURN 




NOR.ER: 


SEC 

RETURN 




{SUBROUTINE; 


t . .IAS 



THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET-COMMAND 

INPUT: CSP) - RETURN ADDRESS 

Rl - BEGIN OF INPUT STRING 



*.*IASi 



OUTPUT; 




a 


INC 


Rl 




CMPB 


(Rl)*,*' 


E 


BNE 


76$ 




CMPB 


(Rl)»,** 


T 


BNE 


76 i 




CMPB 


(IU)»,fl 


/ 


BNE 


76$ 




CALL 


$ . .NOR 




BC 


76$ 




MOV 


R0.2* 




CMPB 


(R1)»,0 


/ 


BNE 


76* 




CALL 


i. .NOR 




BCS 


76$ 




MUV 


R0 4 q)2* 





MODIFIED LOCATION 



|. E M 



jPOINT TO 

I CORRECT 

j NO IF NE 

tCORRECT SYNTAX ? 

j NO IF NE 

jCORRECT SYNTAX ? 

j NO IF NE 

iBUILD ADDRESS TO MODIFY 

l IF CS, FORMAT ERROR 

I SAVE 

jCORRECT SYNTAX ? 

j NO IF NE 

iBUILD DATA TO INSERT 

i IF CS, TQRMAT ERROR 

{AND LOAD 



i^lto 



;A DIAGNOSTIC 
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M3 



SEQ 38 



864 004460 

865 004462 

866 004466 

867 004470 
868 



0004 02 
004737 
00020 7 
000000 



006262 



76*; 

IAS..E 

2$: 



BR 

CALL 

RETURN 

.WORD 

.DSABL 



IAS. .E 
*.,STX 


LSB 



jGO TO END 

iWRITE ERROR MESSAGE 

j RE TURN 

jSORAGE FOR ADDRESS TO MODIFY 



N3 



IEC11-A DIAGNOSTIC 


MACRO M1200 


$..IAO 






870 






871 






872 






873 






874 






875 






876 






877 






878 






879 






880 






831 






882 






883 






384 






885 






886 






887 






888 






889 






890 






891 






892 






893 






894 






895 






896 






897 






898 






899 






900 






901 






902 0044 72 


010602 




903 0044 74 


012703 


007160 


904 004500 


005004 




905 004502 


062701 


000003 


906 004506 


122127 


000075 


907 004512 


001137 




908 004514 


122127 


000057 


909 0O4520 


001403 




910 004522 


0057 02 




911 0O4524 


0011J2 




912 004526 


000526 




913 C04530 


005002 




014 0O4532 


005204 




915 004534 


121127 


000116 


916 004540 


001002 




91 7 004542 


005201 




918 0O4544 


005004 




919 004546 


12112? 


000123 


920 0O4552 


001426 




921 004554. 


12112 7 


000105 


922 004 560 


0014^7 




92 5 004562 


12112 ' 


000110 


V4 004 566 


0014 Y 




. . 0045 70 


121 l^ 1 


OGuWv 


" 004^74 


001106 
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SEQ 39 



.SBTTL 



5 SUBROUTINE: 
j .......... 



$ . . IAE 
*.,IAE 



j THIS ROUTINE CHECKS THE CORRECT SYNTAX OF 
AN"ERR"~ INPUT STRING AND PROCESSES THE 
REQUESTED ' SWITCHREGISTER-OPTIONS' , 



LEGAL SWITCH OPTIONS ARE: 



i..IAE: 



1$ 



2$ 



35 



/HT 
/NH 
/PR 
/HP 
/CT 
/NC 
/SC 
/NS 
/CONT 



INPUT: 
OUTPUT: 

AUTHOR: 



S.PSECT 

,ENABL 

MOV 

MOV 

CLR 

ADD 

CMPB 

BNE 

CMPB 

BEQ 

TST 

BNE 

BR 

CLR 

INC 

CMPB 

BNE 

INC 

Ci.R 

CMPB 

BEQ 

C^IPB 

CMPB 

~HPB 
BM 



HALT AFTER ERROR (DEFAULT) 

NO HALT AFTER ERROR 

DRINT ERROR MESSAGE (DEFAULT) 

INHIBIT ERROR PRINTOUT 

COUNT ERROR 

NO ERROR COUNTING (DEFAULT) 

SCOPE LOOP ON THIS ERROR 

NO SCOPE LOOP (DEFAULT) 

IMMEDIATE CONTINUE SWITCH 



Kl -START ADDR.OF TEXT STRING 

BIT-SETUP IN SOFTWARE-SWITCH-REGISTER 

BERT HUBER, CSS/DP MUNICH 28-JULY-76 



&' 



0' / 



CSSMON 

LSB 

SP.R2 

*PSDSWR,R3 

R4 

•3\R1 

CRD* 

771 

(Rl)* 

2\ 

R2 

77$ 

1M 

R? 

R4 

(Rl ),©'N 

3$ 

HI 

R4 

IR1 
5$ 

i'Rl 

t Rl 
i\ 
t'Rl 
**$ 



» t i 
* t ■ 
t t : 

i i i 



o S 



o C 



) t 9 H 



),0 P 



flag for very first character 

get 'swr" .ddress 

use as 'character 1' 

skip idek~:fyfr 

correct syntax? 

branch if not 

is next char, a '/' 

IF EQ, YES 

VERY FIRST? 

IF YES: SYNTAX ERROR 

ASSUME ENO OF STRING 

NO LONGER VERY f IRST 

SET FOR 'CI' FLAG 

IS IT THf • /N" OPUON? 

BRANCH IF NOT 

ADVANCE TO NEXT CHARACTER 

RESF_T CI FLAG 

IS If A 'S'? 

BRANCH IF rES 

IS IT A C ? 

BRANCH IF ifcS 
IS IT Ah 7 

BRANCH If its 
I b 1 T A P ? 
I* NO: ^tNTAx FRROR 



B4 



IEC11-A 


DIAGNOSTIC 


MACRO M1200 3< 


$,,iae 








927 


004576 


005704 




928 


004600 


001004 




929 


004602 


052713 


040000 


930 


004606 


005201 




931 


004610 


000741 




932 


004612 


005201 




933 


004614 


122127 


OC0122 


934 


004620 


001074 




935 


004622 


042713 


040000 


936 


004626 


000732 




937 


004630 


005704 




938 


004632 


001003 




939 


004634 


042713 


100000 


940 


004640 


000762 




941 


004642 


005201 




942 


004644 


122127 


000103 


943 


004650 


001060 




944 


004652 


052713 


100000 


945 


004656 


000716 




946 


004660 


126127 


000001 000117 


947 


004666 


001016 




948 


0O4670 


126127 


000002 000116 


949 


004676 


001045 




950 


004700 


126127 


000003 000124 


951 


004706 


001041 




952 


004710 


052737 


004000 007160 


953 


004716 


O62701 


000005 


954 


004 722 


000430 




955 


004 724 


005704 




956 


004 726 


001003 




957 


004730 


042713 


020000 


958 


004 734 


000724 




959 


004736 


005201 




960 


004740 


122127 


000124 


961 


004744 


001022 




962 


004 746 


052713 


020000 


963 


004 752 


000660 




964 


004754 


005704 




965 


004756 


001003 




966 


004 760 


052713 


010000 


967 


004 764 


000710 




968 


004 766 


005201 




969 


C04 770 


122127 


000124 


970 


004774 


001006 




971 


0O4776 


042713 


010000 


972 


005002 


000644 




973 


005O04 


124127 


000015 


974 


005010 


001402 




975 


005012 


004737 


006262 


976 


005016 


000207 




977 
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SEQ 40 





TST 


R4 




BNE 


4$ 




BIS 


♦6IT14.CR3) 


30$: 


INC 


Rl 




BR 


1C 


4«! 


INC 


Rl 




CMPB 


(R1)».*'R 




BNE 


77$ 




BIC 


*6IT14,(R3) 




BR 


1$ 


5$: 


TST 


R4 




BNE 


6$ 




BIC 


*8IT15,(R3) 




BR 


30$ 


6$: 


INC 


Rt 




CMPB 


(R1)*.0'C 




BNE 


77$ 




BIS 


♦eiU5,(R3) 




BR 


1$ 


7*; 


CMPB 


KRD.O'O 




BNE 


70$ 




C1PB 


2(R1).* 4 N 




BNE 


77$ 




CMPB 


3(R1),0'T 




BNE 


77$ 




BIS 


•eiTli.PSDSWR 




ADO 


♦5.R1 




BR 


11$ 


70$ { 


TST 


R4 




BNE 


8$ 




BIC 


#eiTl3,(R3) 




BR 


30$ 


8$; 


INC 


Rl 




CMPB 


CRi)*.*' T 




BNE 


77$ 




BIS 


♦6IT13,(R3) 




BR 


1$ 


9$ j 


TST 


R4 




BNE 


10$ 




BIS 


•81T12,(R3) 




BR 


30$ 


10$: 


INC 


Ri 




CMPB 


CRl)».0' T 




BNE 


77$ 




BIC 


*BIT12,(R3) 




HR 


1$ 


11$: 


CMPB 


CRD. 015 




BF.Q 


IAE, .6 


77$j 


CALl 


$. .STX 


IAF. 


»fct RETURN 






♦DSABl 


LSB 



IS IT A 'P' ? 

BRANCH IF YES 

SET SR-BIT FOR /HP 

ADVANCE TO NEXT CHARACTER 

CHECK FOR NEXT SWITCH 

NEXT CHARACTER 

IS IT A '/PR' ? 

IF NO: SYSNTAX ERROR 

SET '/PR' -OPTION 

CHECK NEXT SWITCH 

IS IT *S/' ? 

BRANCH IF YES 

SETUP FOR '/NS' OPTION 

TRY NEXT 

NEXT CHARACTER 

IS IT A' /SO ? 

IF NO: SYNTAX ERROR 

SETUP FOR '/SO -OPTION 

CHECK NEXT SWITCH 

CHECK FOR ' /CONT' 

IF NE , OTHER 

CHECK FOR i /CONT' 

IF NO: SYNTAX ERROR 

CHECK FOR '/CONT' 

i v NO: SYSNTAX ERROR 

Ml 'IMMEDIATE CONTINUE 

ADJUST POINTER 

ENO THIS SCAN 

IS IT A '/CT' ? 

BRANCH IF YES 

SETUP FOR ' /NO -OPTION 

TRY NEXT SWITCH 

ADVANCE TO NEXT CHARACTER 

IS I) A 1 /CT' -OPTION ? 

IF NO: SYNTAX ERROR 

SETUP FOR ' /CT* OPTION 

CHECK NEXT SWITCH 

IS IT */HT* ? 

BRANCH IF YES 

SETUP FOR ' /NP' -OPTION 

TRY NEXT SWITCH 

AOVANCE TO NEXT CHARACTER 

IS IT A ' /MT' ? 

IF NO: SYNTAX ERROR 

SETUP FOR ' /HP -OPTION 

TRY NEXT SWITCH 

WAS LAST BYTE A <CR>? 

BRANCH IF YES 

SYNTAX ERROR 

RETURN TO CALLER 



C4 



IEC11-A 

*,,RED 

979 
960 
981 
982 
985 
984 
985 
986 
987 

968 
989 

990 
991 
992 
993 
99* 
995 
99t? 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
100 7 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
102? 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 



DIAGNOSTIC 
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.SBTTL I..RED 



SEQ 41 



005020 004 737 006136 



SUBROUTINE 



I..RED 



♦«** ABOO 

THE CARRY BIT IS SET IF A ZERO OCTAL INPUT (ONLY CR,NO DATA) 
HAPPENS 

THIS SUBROUTINE HANDLES ALL TYPES Of SPECIAL INPUT REQUESTS 
SETUP BY THE PROGRAMMER THROUGH A * READ ' MACRO. 
LEGAL INPUT TYPES THAT CAN BE HANDLED ARE: 

BINARY FORMAT (EX: 1001 101 1O101OOO1 ) 



INPUT CAN BE UP TO 16-DIGITS OF THE FORM OR 1 . 

LESS THAN 16 DIGIT INPUT IS FILLED UWITH LEADING ZEROES 

INPUT IS RETURNED IN RO, 

THE PREVIOUS CONTEND OF RO WILL BE OVERWRITTEN, 

OCTAL FORMAT (EX t 176523) 



INPUT CAN BE UP TO 6 DIGITS OF THE FORM 0-7, 

IN CASE OF A 6-DIGIT-WIDE INPUT, THE LEFTMOSTCHIGH ORDER) 

DIGIT IS TRUCTATED TO THE RIGHTMOST (LOW ORDER )BIT. 

IN CASE OF LESS THAN 6 DIGITS INPUT, LEADING ZERO DIGIT5 

ARE INSERTED. 

THE RESULT IS RETURNED IN RO, HEREBY OVERWRITING 

THE PREVIOUS CONTENT OF RO. 

DECIMAL FORMAT (EX? 96003) 



INPUT CAN BE UP TO 5 DIGITS OF THE FORM 0-9. 

LESS THEN FIVE DIGITS INPUT ARE FILLED UP WITH 

LEADING ZEROE DIGITS. 

MAXIMUM NUMBER ALLOWED IS 32656, 

INPUT IS RETURNED IN RO, HEREBY OVERWRITING THE 

PREVIOUS CONTENT OF RO. 

ASCI FORMAT (£X; B6TK6L) 



INPUT CAN BE ANY LEGAL ASCII CHARACTER. 

IF INPUT INTO A BUFFER IS REQUESTED, UP TO 80 

CHARACTERS CAN BE INPUT. 

IF INPUT RETURN IN RO IS REQUESTED, ONLY THE FIRST 

CHARACTER WILL BE RETURNED IN THE LOW ORDER BYTE 

OF RO, 

OLD CONTEND OF RO IS OVERWRITTEN IN THIS CASE. 

IF THE ONLY INPUT IS <CR>, ZERO WILL BE RETURNED IN RO 

AS WELL AS IN THE FIRST BYTE OF THE SPECIFIED BUFFER. 



AUTHOR: 
K.RfcDt CALL 



BERT HU8ER» C5S/DP MUNICH 29 JUN-76 

*,,PRQ iPRINT PROMPT STRING 



D4 



IEC11-A DIAGNOSTIC 
$,,RED 
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SEQ 42 



1056 

1037 

1058 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

105? 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 



005024 

005030 

005036 

005040 

005044 

005044 

005050 

005052 

005064 

005070 

005074 

005100 

005102 

005104 

005106 

005110 

005112 

005114 

005120 

005124 

005126 

005140 

005144 

005146 

005152 

005154 

005156 

005160 

005162 

005164 

005172 

005174 

005200 

005202 

005206 

005210 

005220 

005232 

005234 

005240 

005242 

005244 

005246 

005252 

005254 

005262 

005264 

005266 

005266 

005270 

005272 

005274 

005300 

005302 

005304 

005306 

005312 



010637 
026627 
003402 
010637 

005737 
001375 

012701 
016602 
000172 
005112 
005270 
005504 
005444 
005464 
005000 
005037 
121127 
001014 

011666 
005726 
005037 
000261 
000207 

006300 
006300 
006300 
023727 
001406 
121127 
103403 
121127 
101412 



000672 
142711 
152100 
005227 
OOOOOO 
121127 
001541 
023727 
001001 
000261 

00055/ 
005000 
005004 
122721 
001402 
005204 
000773 
012701 
020427 



007156 

000002 000004 

0C7174 

007150 



007026 
000014 
005100 



005244 
000015 



000002 
007156 



000015 



007 0?6 
00000b 



100> 



2$ 



$.»0CT: 



5$ 



005244 000006 

000060 

00006V 

000060 

000015 

005244 0C0O01 



4$ 



5$ 



6$ 



7$ ; 

S..DEC: 



11 



MOV 
CMP 
BLE 
MOV 

TST 

BNE 

PUSH 

MOV 

MOV 

JMP 

I..OCT 
.DEC 
.BIN 
.BUF 
,ASC 



2* 



CLR 

CLR 

CMPB 

BNE 

POP 

MOV 

TST 

CLR 

SEC 

RETURN 

ASL 

ASL 

ASL. 

CMP 

BEQ 

CMPB 

BLO 

CMPB 

BLOS 

WRITE 

POP 

BR 

BICB 

BIS8 

INC 

.WORD 

CMPB 

BNE 

CMP 

BNE 

SEC 

BR 

CLR 
CLR 
CMPB 

BEQ 

INC 

BR 

MOV 

CMP 



SP.INPREQ 
2(SP),*4 
100* 
SP.I.JASF 

INTLAG 

II 

R1,R2,R3,R4,R5 

♦KBBUFE.R1 

14(SP),R2 

Q2ICR2) 



RO 
61 

8R1.«15 
31 

R5.R4.R3.R2.R1 

CSP),2(SP) 

(SP)» 

INPREQ 



RO 

RO 

RO 

61,06 

4$ 

WU.060 

41 

SR1.067 

5$ 

MILOCT 

R5.R4.R3.R2.R1 

I.. RED 

060, SRI 

(R1)*,R0 

(PC)* 



8R1.015 

3$ 

6i,01 

7* 



RED. .E 

RO 

R4 

015, (Rl)* 

2* 

R4 

1$ 

OKBBUTF.Rl 

R4,05 



SET SPECIAL REQUST FLAG 

DETECT SPECIAL ASCII INPUT RUNNING 

NO ASCII INPUT 

SET SPECIAL ASCII INPUT FLAG 

WAIT FOR INPUT COMPLETE 

SAVE REGS 

GET INPUTPIONTER 

GET INPUTMOFE INOICATOR 

SELECT REQ. INPUT 

HANOLE OCTAL INPUT 

HANDLE DECIMAL INPUT 

HANDLE BINARY INPUT 

HANDLE ASCII INPUT INTO BUFFER 

HANDLE ASCII INPUT INTO BUFFER 

CLEAR INPUT POINTER 

RESET COUNTER 

ZERO INPUT ? 

IF NE, SKIP 

mABOO; RESTORE GEN, REGISTERS 

♦♦+A800: REAJUST RETURN ADDRESS 

♦**ABOO: 

***ABOO: RESET SPECIAL REQUEST COUNTER 

*»*A800: SET CARRY AS ZERO INPUT INDICATOR 

♦♦♦ABOO: AND GO BACK TO CALLER 

ADJUST INPUT CHARACTER 



ALL INPUT HANDLED ? 

MOPE THAN 6 DIGITS INPUT 

LEGAL OCTAL DIGIT ? 

IF LO, NO 

LEGAL OCTAL DIGIT ? 

IF LOS. YES 

ILLEGAL OCTAL INPUT 

RESTORE REGS 

RESTART INPUT SEQUENCE 

BUILD BINARY 

INSERT INTO BUFFER 

COUNT INPUTS HANDLED 

DIGIT COUNTER 

END OF INPUT DETECTED? 

IF NE , NO 

SET CARRY IF ONLY CR WAS THE INPUT 

SET CARRY 

END OF INPUT 

CLEAR TRANSFER BUFFER 

RESET COUNTER 

END OF INPUT ? 

IF EQ, YES 

DIGIT COUNTER 

CEEP COUNTING 

SET INPUT BUFFER POINTER 

MORE THAN 5 DIGITS ? 



E4 



IEC11 A 

*,*RED 

icm 

1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1170 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

U4S 



;Tir 
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SEQ 43 



005316 

005320 

005330 

005342 

005344 

005346 

005350 

005352 

005356 

005360 

005366 

00r.374 

005376 

005400 

005402 

005406 

005410 

005414 

005416 

005422 

005424 

005426 

005430 

005432 

005434 

005436 

005440 

005442 

005444 

005450 

005452 

005454 

005456 

005462 

005464 

005466 

005472 

0OS476 

005500 

005502 

005504 

005506 

005512 

005516 

005520 

005526 

005530 

005540 

005552 

0055*6 

005562 

005564 

O05570 

005572 

005574 

005600 

QQ5002 



101412 



000626 
005 704 
001527 
006304 
016402 
000406 
000000 
000144 
006204 
005003 
112103 
020327 
103744 
020327 
101341 
042703 
OC5/03 
001405 
000241 
060200 
103732 
005303 
OC1373 
005304 
000740 
122711 
001001 
005011 
010100 
0050*7 

000461 
005000 
005037 
122711 
001453 
111100 
000451 
00*000 
005037 
122711 
001443 
022737 
0010U 



000137 
121127 
001407 
121127 
001011 
006300 
052700 
000401 
006300 



005360 

OOOOOl 
001750 



000060 
000071 
177760 



000012 
023420 



3* 



4$ 



5$ 
6$ 



7$ 



13*: 



000015 



007174 



007174 
000015 



005624 
000015 



S..BUF; 



1* 



5..ASC: 



5. .BIN: 



000021 005624 1* 



005020 
000060 

000061 



OOOOOl 



5$ 



2$ 



3$ 



BL05 41 

WRITE MILDEC 

POP R5,R4,R3,R2,R1 

BR *.,RED 

TST R4 

BEQ RED..E 

ASL R4 

MOV 5$CR4),R2 

BR 61 

.WORD 0,1,10. ,100. ,1000 



ASR R4 

CLR R3 

MOVB (R1)*,R3 

CMP R3,060 

BIO 31 

CMP R3.471 

BHI 3$ 

BIC $177760, R3 

TST R3 

QEQ 13$ 

CLC 

ADD R2,R0 

BCS 3$ 

DEC R3 

BNE 71 

DEC R4 

BR 41 

CMPB 015, (Rl) 

BNE 1$ 

CLR (Rl) 

MOV Rl.RO 

CLR $.$ASF 

BR RED . . E 

CLR RO 

CLR I.IASF 

CMPB ♦15,SR.r 

BEQ REO..E 

MOVB BR1.R0 

BR RED..E 

CLR RO 

CLR 61 

CMPB *i5,flRl 

BEQ RED..E 

CMP 017. ,6$ 

BNE 2* 

URITE MILBIN 

POP R5,R4,R3,R2,R! 

JMP I.. RED 

CMPB OR 1,060 i ZERO 

BEQ 3$ 

CMPB BR1,#61 

BNE 41 

ASL RO 

BIS OBITO,RO 

BR 7$ 

ASL RO 



IF LOS, NO 

ILLEGAL DECIMAL INPUT 

REST, REGS 

RESTART INPUT 

ZERO DIGIT COUNT ? 

IF EQ, YES 

BUILD TABLE OFFSET 

SETUP CORRECT PARAMETER 

SKIP TABLE 

.,10000. 

REBUILD R4 CONTENT 

RESET SAVE BUFFER 

GET FIRST DIGIT 

CHECK LOWER DIGIT RANGE 

IF LO, ERROR 

CHECK UPPER DIGIT RANGE 

IF HI, ERROR 

CONVERT TO OCTAL 

ZERO DIGIT? 

IF EQ, YES 

RESET CARRY 

BUILD OCTAL NUMBER 

ERROR IF OVERFLOW 

ALL DONE? 

IF NE, NO 

NEXT DIGIT 

ZERO OIGIT ? 

SKIP IF NOT 

RESET FIRST INPUT WORD 

TRANSFER BUFFER ADDRESS 

CLEAR SPECIAL ASCII FLAG 

END OF INPUT 

CLEAR SPECIAL ASCII INPUT FLAG 
ZERO INPUT 
IF EQ. YES 
GET FIRST BYTE 
END OF INPUT 

RESET COUNTER 
ZERO INPUT? 
ENO OF INPUT 
TOO MANY DIGITS? 
IF NE, NO 

ILLEGAL INPUT MESSAGE 
REST. REGS 
REENTER 
DIGIT ? 

BRANCH IF YES 
ONE DIGIT ? 
BRANCH 
ADJUST 
INSERT 



IF NOT 

TRANSFER BUFFER 
INTO TRANSFER BUFFER 



ADJUST TRANSFER BUFFER 



F4 



IEC11-A 
$„RED 


DIAGNOSTIC 


MACRO M1200 


30-MAR- 


84 


16:02 PAGE 19-3 


1149 


005604 


005201 




7$: 




INC 


Rl 


1150 


005606 


005237 


005624 






INC 


61 


1151 


005612 


000742 








BR 


1* 


1152 


005614 


121127 


000015 


4$: 




CMPB 


BR1.415 


1153 


005620 


001343 








BNE 


5$ 


1154 


005622 


000401 








BR 


RED. .E 


1155 


005624 


000000 




6$t 




.WORO 





1156 


005626 






RED, 


.E 


POP 


R5,R4,R3,R2,R1 


1157 


005640 


0.11666 


000002 






MOV 


(SP),2(SP) 


1158 


005644 


005726 








TST 


CSP)* 


1159 


005646 


005037 


007156 






CLR 


INPREQ 


1160 


005652 


000207 








RETURN 





SEQ 44 



I POINT TO NEXT INPUT 

j COUNT INPUTS 

j CHECK NEXT 

»END OF INPUT ? 

jNO, ILLEGAL CHARACTER 

I 

{COUNTER 

iREST. REGS 

I READJUST STACK RETURN 

J 

iRESET SPECIAL REQUEST 

j RETURN TO CALLER 



ADDRESS 
POINTER 



G4 



IECli-A 


DIAGNOSTIC 


MACRO M1200 


3C 


$„WRT 












1162 












1163 












1164 












1165 












1166 












1167 












1168 












1169 












1170 












1171 












1172 












1173 












1174 












1175 












1176 












1177 












1178 












1179 












1180 












1181 












1182 












1183 












1184 


005654 


005737 


007152 






1185 


005660 


001375 








1186 


005662 


005737 


007130 






1187 


005666 


001372 








1188 


005670 


010637 


007152 






1189 


005674 


016627 


000002 






1190 


005700 


000000 








1191 


005702 


012737 


0C5736 


000: 


64 


1192 


005710 


012737 


000340 


00"' 


)ht* 


119? 


005716 


012616 








1194 


005720 


052737 


00010C 


177: 


W 


1195 


005726 


005737 


007152 






1196 


005732 


001375 








1197 


005734 


000207 








1198 


005736 


122737 


000023 


17 /S '-2 


1199 


005744 


001401 








1200 


005746 


000404 








1201 


005750 


122737 


00002) 


177! 


*>;? 


1202 


005756 


001367 








1203 


005760 










1204 


005760 


12772? 


177714 


000 


. ;5 


1205 


005766 


001434 








1206 


005770 


127727 


177704 


oor 


, V'J 


1207 


005776 


001022 








1208 


006000 


042737 


000 J 00 


' ! >" 


>-♦ 


1209 


006006 


012737 


000015 


177! 


i£6 


1210 


006014 


105737 


177564 






1211 


006020 


100375 








1212 


006022 


005237 


005700 






1213 


006026 


012737 


0OO012 


177 


i/jfj 


1214 


006034 


052737 


000100 


17 r 


".£4 


1215 


006042 


000002 








1216 


006044 


117737 


177630 


177 


Jfc6 


1217 


006052 


005237 


005700 






1218 


006056 


000002 
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SEQ 45 



SUBROUTINE: 



.SBTTL *..WRT 
$..URT 



THIS ROUTINE IS CALLED TO SETTUP A MESSAGE PRINTOUT ON CONSOLE 
ALL PRINTING IS CONTROLLED BY INTERRUPT EXEPT <CR>» <L.F>. 



INPUT : 

OUTPUT : 
AUTHOR s 
MODIFIED BY: 



i - 



*,,WRT: 



J..MSP: 



1$ 



3$: 
20$ 



30 i 



2CSP) 
CSP) 



ADDRESS OF MESSAGE TEXT 
CALLER PC 



MESSAGE ON TERMINAL 
BERT HUBER CSS/DP MUNICH 28-JUN-76 
JOHN LEVESQUE CSS ISG 23-JAN-83 
MODIFICATION REQUIRED TO HANDLE XON AND XOFF 



I .PSE'.'t 


CSSNON 




.EN/lflL 


LSB 




TST 


OJTFLG 


j OUTPUT RUNNING ? 


BNE 


I..WRT 


iIF NE, YES - WAIT 


TST 


INFLAG 


j INPUT RUNNING ? 


BNE 


$, ,WRT 


Ill" NE. YES - WAIT 


MOV 


SP,OUTFLG 


iSET OUTPUTFLAG 


MOV 


2(SP),(PC)» 


iGET MESSAGE POINTER 


.WORD 





jMESSAGE POINTER 


MOV 


011.9*64 


iSETUP VECTOR 


MOV 


0340,9*66 


til 


MOV 


CSP) ♦•CSP) 


lUPDATE STACK 


BIS 


OIOO.SGTPS 


lENABLE INTERRUPTS 


TST 


OUTFLG 


jOUTPUT RUNNING? »**GS0001** 


BNE 


.-4 


jIF NE ,YES->WAIT j**GSOO0l** 


RETURN 




{RETURN TO CALLER 


CMPB 


023.SOTKB 


l j i CHECK FOR XOFF 


BEQ 


31 


ill XOFF CONDITION UAIT TO CLEAR 


BR 


201 


It; NO XOFF THEN CONTINUE 


CMPB 


#21, SOT KB 


l i i CHECK FOR XON 


BNE 


1* 


III NO XON GO WAIT FOR IT 


CMPB 


SI. .MSP.O' } 


iEND OF MESSAGE ? 


BEQ 


WRT. .E 


lllIF EP. tES 


CMPB 


S». .MSP.O 1 [ 


I 1 i<CR>, <LF>? 


BNE 


30$ 


1 1 l IF NE , NO 


BIC 


0100,S*TPS 


It {DISABLE INTERRUPTS 


MOV 


*15,S0TPB 


n ,SEND <CR> 


TSTB 


SOTPS 


II j WAIT FOR DONE 


BPL 


,-4 


i i i 


INC 


*. .MSP 


UiPOINT TO NEXT CHARACTER 


MOV 


*12,8*TPB 


1 i iSENO <LF> 


BIS 


oioo.sotps 


ii iRE-ENABLE INTERRUPT 


RTI 




uiRETURN TO MAIN PROGRAM 


MOVE 


8$. .MSP.80TPB 


II iSENO NEXT CHARACTER 


INC 


*,.MSP 


n iPOINT TO NEXT 


RTI 




U i RETURN TO CALLER 



H4 



I!?Wf A 


DIAGNOSTIC 


MACRO 


1219 


006060 


04275/ 


000100 


1220 


OO6O06 


005037 


007152 


1221 


006072 


005737 


00 7 170 


1222 


006076 


001410 




1223 


006100 


005037 


007170 


1224 


006 104 


005037 


007 156 


1225 


006110 


004737 


005360 


1226 


006114 


000137 


003520 


1227 


006120 


000002 
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W7S64 WRT,,E 



SEQ 46 



4$ 



1226 



BIC 


4100.S0TPS 


CLR 


OUTFLG 


TST 


SPEFLG 


BEQ 


4$ 


CLR 


SPEFLG 


CLR 


INPREQ 


CALL 


$> .RSV 


JMP 


MSPE 


RTI 




.DSABL 


USB 



jDISABLE OUTPUT INTERRUPT 

jRESET OUTPUT FLAG 

j THIS FLAG IS SET ONLY 

1 WHEN DURING A PRINTOUT 

j THE -CNTRL C> COMMAND WAS 

jNECCESARY TO INTERRUPT THE 

»RUNNING PRINTOUT 

1 NOW NEW SPEC. INPUT IS PROCESSED 

j RETURN TO MAIN PROGRAM 



IEC11-A 
$,J<BO 



14 



DIAGNOSTIC 
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SEQ 47 



1230 
1231 
1232 
1233 
123A 
1235 
123b 
1237 
1238 
1239 
1240 
124 1 
1242 
1243 
1244 
1245 
1246 
.124 7 
1248 
1249 
1250 



.SBTTL S..KBO 



0061 £2 

006126 
006130 
006134 



iob/yf 

100375 
010037 
000207 



1/7564 

177566 



(SUBROUTINE: 


I..KBO 


(KEYBOARD ECHO 


ROUTINE TOR TEMINAL INPUT 


i INPUT : 


(SP) - CALLER PC 

RO • PATTERN TO ECHO 


! OUTPUT: 


PRINT PATTERN TO TERMINAL 


\ AUTHOR: 


BERT HU6ER CSS/DP MUNICH 28-JUN-76 


1. PSECT 
.ENABL 
$.,KBOs TSTB 
BPL 

MOV 

RETURN 

,DSABL 


CSSMON 

LSB 

S#TPS (ECHO RLNNING ? 

I..KBO (IF PL. WAIT 

RO.SOTPB jECHO CHARACTER 

(RETURN TO CALLER 
LSB 



J4 



IECll-A 


DIAGNOSTIC 


$.,PRO 






1252 






1253 






1254 






1255 






1256 






125? 






1258 






1259 






1260 






1261 






126? 






1263 






1264 






1265 






126t 






1267 






1268 






1269 






1270 






1271 






1272 






1273 






1274 


006136 


00501/ 


1275 


006142 




1276 


006166 




1277 


006212 




1278 


006222 


005737 


1279 


0O6226 


00137S 


1280 


006230 




1281 


006254 


010637 


1282 


006260 


000207 


1283 







MACRO Pii?00 



AR-84 


16i02 


PAGE 


22 




.SBTTL 


$. 


.PRO 


SUBROUTINE: 


$. 


.PRO 



SEQ 48 



TMI5 ROUTINE IS CALLED TO PRINT THE DEFAULT KEYBOARD 
PROMPT STRING ON THE TERMINAL ♦ AND TO SET THE INPUT FLAG. 

INPUT; CSP) - CALLER PC 

OUTPUT: PROMPT STING ON TERMINAL 

AUTHOR: BERT HUBER CSS/DP MUNICH 28-JUN-76 
MZ001 

,-• I i< K I 

THE U.vE Of THIS MACRO'S ALLOWS TO USE ONE VERSION OF CDM 
ON LSI AND PDP. 



C^/150 



ocn.-i 



007 Lav 





. I DENT 


/Vl.O/ 




t .P r .fcCT 


CSSMON 




ENAUL 


LS8 


*..PROi 


CLR 


INFLAG 




PREAO 


STATUS t 




PSET 


#0 i 




WRITE 


PROMES 


l*i 


T5T 


OUTFLri 




BNE 


If 




PSET 


STATUS 




MOV 


SP 4 INFLAU 




RETURN 






.OSABL 


USB 



j j jRESET INPUT FLAG 

{SAVE STATUS jMZOOl 

I CLEAR PS iMZOOl 

II iWRITE PROMPT STRING 
t WAlT FOR OUTPUT COMPLETE 

IrEI OAD STATUS .MZ001 

j;»SET INPUT FLAG 
iRETUAN TO CALLING PROGRAM 



I<4 



IECll A DIAGNOSTIC 



1285 
1286 
1287 
1268 
1289 
1290 
1291 
1292 
129? 
1294 
1295 

1296 
1297 
1298 
1299 
1300 
1301 
1302 
ISO 3 
1304 
1305 
1306 

1307 006262 

1308 006264 

1309 006310 

1310 006334 

1311 006344 

1312 006350 

1313 006352 

1314 006376 
X315 
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.SBTTL *. 4 STX 



5EQ 49 



SUBROUTINE: 



I, ,STX 



THIS ROUTINE PRINTS THE 'SYNTAX ERROR' MESSAGE 

INPUTS: CSP)- CALLER PC 

OUTPUT: MESSAGE ON TERMINAL 

AUTHOR: BERT HUBER CSS/DP MUNICH 28-JUN-76 

MZ001 



THE USE Or THIS MACRO'S ALLOWS TO RUN ONE VERSION OF CDM 
ON LSI AND PDP. 



I.PSECT CSSMON 



000240 



005737 
001375 

000207 



007152 





ENABL 


LSB 


$..STXi 


NOP 






PRE AD 


STATUS 




PSET 


«0 




WRITE 


MSVERR 


Ui 


TST 


OUTFLG 




BNE 


It 




PSET 


STATUS 




RETURN 






,DSA8L 


LSB 



j M DUMMY 
{SAVE STATUS ;M2001 
j CLEAR PS jMZOOl 

jURITE SYNTAX ERROR MESSAGE 
j WAIT FQR OUTPUT COMPLETE 

I RELOAD PS iMZOOl 
UiRETURN TO CALLER 



L4 



1EC11, A DIAGNOSTIC 



1317 

1318 
1519 
1320 
1321 
1322 
1523 
1324 
1325 
1326 
132? 
1328 
1329 
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.SBTTL J..DMP 



SEU 50 



SUBROUTINE: 



$. .DMP 



THIS ROUTINE PRINTS ON THE TERMINAL PRINTER NUMBERS 

IN BINARY, DECIMAL AND OCTAL FORMAT, DEPENDING ON THE 

TYPE -ARGUMENT OF THE CALLING DUMP MACRO. 

THIS MONITOR WAS MODIFIED IN JANUARY 1983 TO INCLUDE XQN AND XOFF 
TERMINAL FEATURES. ALSO INCLUDED SOME MACRO DIRECTIVES TO ALLOW 
ASSEMBLf ON VAX, 



M4 



IEC11-A DIAGNOSTIC 


MACRO r- 


$,,DMP 






1331 






1332 






1333 






1334 






1335 






1336 






1337 






1338 






1339 






1340 






1341 






1342 






1343 






1344 00640C 






1345 006402 


016600 


000004 


1346 006406 


00573"> 


007152 


1347 006412 


0C1375 




1348 006414 


000170 


006420 


1349 006420 


006426 




1350 006422 


006520 




1351 006424 


006630 




1352 006426 


012746 


000006 


1353 006432 


016646 


000010 


1354 006436 


012700 


000060 


1355 006442 


006316 




1356 006444 


103001 




1357 006446 


005200 




1358 006450 


004737 


006122 


1359 006454 


005366 


000002 


1360 006460 


001415 




1361 006462 


012700 


000060 


136? 006466 


006316 




1363 006470 


103002 




1364 006472 


062700 


000004 


1365 006476 


006316 




1366 006500 


103001 




1367 006502 


122020 




1368 006504 


006316 




1369 006506 


103360 




1370 006510 


005200 




1371 006512 


000 /56 




1372 006514 


022626 




1373 006516 


000466 




1374 






1375 






1376 006520 


012746 


000005 


137 7 006524 


016646 


000010 


1378 006530 


012700 


000060 


1379 006534 


004737 


00612? 


1300 006540 


012700 


000060 


136\ 006544 


027716 


000044 


138. OC6550 


101004 




1383 006552 


005200 




1384 006554 


167716 


000034 


1385 006560 


000771 




1386 006562 


004 737 


006122 


13£7 006566 


062737 


000002 



M1200 30 -MAR -04 
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INPUT; 



PAGE 25 



4CSP) 
2CSP) 



SEQ 51 



{ 
I 

\ OUTPUT} 
AUTHOR: 

$, .DMP; 

O..TYP; 
I. .DOC: 



1$ 



2$ 



3$ 



4$ 



I. .DDC; 



II 
21 



006614 



3$ 



l.PSECT 

. ENABL 

PUSH 

MOV 

TST 

BNE 

JMP 

I. .DOC 

I..DDC 

I. .OBN 

MOV 

MOV 

MOV 

ASL 

BCC 

INC 

CALL 

DEC 

BEQ 

MOV 

ASL 

BCC 

ADD 

ASL 

BCC 

CMPB 

ASL 

BCC 

INC 

BR 

CMP 

BR 

.DSABL 

.ENABL 

MOV 

MOV 

MOV 

CALL 

MOV 

CMP 

BHI 

INC 

SUB 

BR 

CALL 

ADD 



VALUE TO DUMP 
TYPE OK DUMP : • OCTAL 

2 - DECIMAL 
4 * BINARY 
RETURN PC 



(SP) 

DUMP ON TERMINAL 

BERT HUBER CSS/DP MUNICH 



28-JUN-76 



CSSMON 

LSB 

RO 

4CSP),R0 

OUTFLG 

. -4 

SD. .TYP(RO) 



♦6 . - ( SP ) 
lOCSP).-(SP) 

0'0,R0 

CSP) 

1$ 

RO 

I. .KBO 

2CSP) 

41 

O'O.RO 

CSP) 

2$ 

04, RO 

(SP) 

3$ 

CRO)*,(RO)* 

(SP) 

11 

RO 

II 

CSP)*,(SP)* 

DMP , , E 

LSB 

LSB 

05, -(SP) 

IOC SP), -CSP) 

*'0,R0 jBUILO 

I . . KBO 

O'O.RO jSETUP 

StPOINT.(SP) 

31 

RO 

SIPOINT.CSP) 

21 

I, .KBO 

42,*PQ1NT 



j SAVE RO 

{OUTPUT 
>1F NE, 
I SELECT 



{GET TYPE ARGUMENT 

RUNNING ? 

WAIT 

FUNCTION ROUTINE 



jSETUP DIGIT COUNT 

{GET VALUE TO DlUP 

{SETUP BASIC ASCII VALUE 

jBUILD FIRST DIGIT 

{IF CC, DIGIT IS A '0' 

{OTHERWISE DIGIT IS A ? 

jDlUP DIGIT 

{COUNT DIGITS DUMPED 

{IF EQ, ALL DONE 

{SETUP NEXT DIGIT BASE 

{BUILD NEXT DIGIT 

{IF CC, DIGIT INCLUDES ????? 

{DIGIT - BASEf4 

{ANALYZE NEXT BIT 

jIF CC, DIGIT INCLUDES ???? 

{DIGIT « DIGIT ♦ 2 

lANALIZE LAST BIT OF DIGIT 

jIF CC, DIGIT MUST BE EVEN 

{OTHERWISE DIGIT IS ODD 

iGO AND DUMP 

{READJUST STACK 

{END OF DUMP 



{SETUP A DIGIT COUNT 

{GET VALUE TO DUMP 
LEADING ZERO 

{AND PRINT 
BASIC ASCII VALUE 

{CMP VALUE WITH ACT. DEC. DIGIT 

{VALUE IS SMA Lt.R 

{COUNT NUMBER OF DIVISIONS 

{DIVIDE BY ACT. DEC. DIGIT 

jDO NEXT 

{PRINT THIS DEC. DIGIT 

{POINT TO NEXT DEC* VALUE 



N4 



lECli-A 


DIAGNOSTIC 


MACRO M1200 30 


-MAR -84 


16:02 PAGE 25-1 


$ t »DMP 
















1388 


006574 


005366 


000002 






DEC 


2CSP) 


1389 


006600 


001357 








BNE 


1$ 


1390 


006602 


012737 


006616 


006614 




MOV 


STABLE, JPOINT 


1391 


006610 


022626 








CMP 


CSP)f ,CSP)* 


1392 


006612 


000430 








BR 


OMP, ,E 


1393 


006614 


006616 






$POINT: 


$ TABLE 




1394 


006616 


023420 






$ TABLE: 


10000. 




1395 


006620 


001750 








1000, 




1396 


006622 


000144 








100. 




1397 


006624 


000012 








10. 




1398 


006626 


000001 








1 




1399 












.DSABL 


LSB 


1400 












.ENABL 


LSB 


1401 


006630 


012766 


000020 


000004 


*. .DBN: 


MOV 


416..4CSP) 


1402 


006636 


000241 






1$: 


CLC 




1403 


006640 


006166 


000006 






ROL 


6CSP) 


1404 


006644 


103410 








BCS 


3$ 


1405 


006646 


012700 


000060 






MOV 


060.R0 


1406 


006652 


004737 


006122 




2$: 


CALL 


$. .KBO 


1407 


006656 


005366 


000004 






DEC 


4CSP) 


1408 


006662 


001365 








BNE 


1$ 


1409 


006664 


000403 








BR 


DMP . . E 


1410 


006666 


012700 


000061 




3$: 


MOV 


061.R0 


1411 


006672 


000767 








BR 


2* 


1412 












.DSABL 


LSB 


1413 


006674 








DMP..E: 


POP 


RO 


1414 


006676 


062706 


000006 






ADD 


06.SP 


1415 


006702 


000176 


177772 






JMP 


8-6CSP) 


1416 












.DSABL 


LSB 



SEQ 52 



j COUNT NUMBER OF CONF , DIGITS 

I ALL DONE 

j REBUILD FOR NEXT USER 

j CORRECT STACK FOR RETURN 

j END OF DEC. DUMP 



; SETUP PRINT POINTER 
jRESET CARRY 
{SELECT FIRST CHARACTER 
? IF " 1 " BRANCH 
{SETUP A "0" CHARACTER 
{DUMP CHARACTER 
{COUNT CHARACTERS DUMPED 
i IF NE, CONTINUE 
{END OF DUMP 

{SETUP A " 1 " CHARACTER 
{DUMP IT 

{RESTORE RO 
{READJUST STACK 
{RETURN TO CALLER 




B 



5 



IEC11 A 


DIAGNOSTIC 


*„ADP 




i4ie 




1419 




1420 




1421 




1422 




1423 




1424 




1425 




142b 




1427 




1426 




1429 




1430 




1431 


006706 


1452 


006 716 


1433 


006 ?30 


1434 


006740 


1435 


006752 00 
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,SBTTL I..ADP 



SEQ 53 



THIS SUBROUTINE IS USED TC PRINT OUT ADDITIONAL INFORMATION 
ABOUT AN ERROR, MOSTTIMES IT WILL BE USED TO PRINT THE 
DATA IN CASE OF DATA ERROR, 



INPUTS { CSP) -ADDRESS OF FIRST ARGUMENT 



OUTPUT; 

AUTHOR: 
», % ADP| WRITE 
DUMP 

WRITE 

DUMP 

RETURN 



NONE 

MICHAEL MLLER CSS DP MUNICH MAY 1977 
MERJ. i "SHOULD BE" 
OCT,ISHLD iDUMP DATA 
MER2 j "WAS" 

OCT^WAS iDUMP DATA 

jRETURN TO MAIN 



$«w 



1437 

1438 
1439 
1440 
1441 
1442 
1443 
1444 

1445 
1446 
144? 
1446 
1449 
1450 
1451 
1452 
145* 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 



CS 



A DIAGNOSTIC 
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5EQ 54 



006754 062706 000004 

006760 

006770 

007000 005737 007152 

007004 001375 

007006 012737 000006 000004 

007014 000136 



♦SBTTL I..TOT 



i ♦ 



i THIS ROUTINE IS ENTERED AFTER THE MACRO 
i AND A BUS TIMEOUT HAS HAPPENED 



•ADRTST" HAS BEEN EVOO.D 



I INPUT j 4CSP) 
j RO 

i OUTPUT 5 

j AUTHOR 5 

\ - 
I 

1, % T0T; ADO 

WRITE 

DUMP 

TST 

BNE 

MOV 

JMP 



- PC FOR PROGRAM CONTINUATION 

- REGISTER ADDRESS (E,G« 164000) WHICH SHOULD Bl : *Ebil U 



THE ERROR MESSAGE} 

THIS ADDRESS IS NOT AVAILABLE Oi* UNI8US: 

ALBERT BREM.CSS MUC FEB 1979 



164000 



*4,SP 

IMNOAV 
OCT.RO 
OUTFLG 
♦ 4 

#6 , a*4 
a(SP)* 



I CORRECT SP 

i SAY ADDRESS NOT AVAILABLE ON UNIBUS 

iDUMP REGISTER ADDRESS 

I SYNCHRONIZE PRINTOUT 

l M 

iREBUILD TRAP CATCHER 

I JUMP TO CONTINUATION LABEL 



D 



5 



ifftfr* 


DIAGNOSTIC MACRO r 


1463 






1464 






1465 






1466 






1467 






1468 






1469 






1470 






1471 






14 72 






1473 




172360 


14 74 




172320 


14?5 




172340 


147b 




172352 


1477 




172354 


1478 




172356 


14 79 




172300 


1480 




172314 


1481 




172316 


1482 




172200 


1483 




177660 


1484 




\ 7 7620 


1485 




177640 


1486 




177650 


1487 




177652 


1488 




177654 


1489 




177656 


1490 




177600 


1491 




177610 


1492 




177612 


1493 




177614 


1494 




177616 


1*95 




170200 


1496 




140000 


1497 




030000 


1498 




177572 


1499 




172516 


1500 


007016 


000000 


1501 


007020 


000000 


1502 


007022 


000000 000000 


1503 






1504 






1505 






1506 


007026 




1507 


007146 




1508 


007146 


007026 


1509 


007150 


000000 


1510 


007152 


000000 


1511 


007154 


000000 


1512 


007156 


000000 


1513 


007160 


000000 


1514 


007162 


000000 


1515 


007164 


oooooo 


1516 


007166 


000000 


1517 


007170 


oooooo 


1518 


007172 


001000 


1519 


007174 


oooooo 



M1200 30 -MAR -84 16:02 PAGE 28 



.SBTTL I..BUF 



SEQ 55 



l SUBSECTION TO CONTAIN ALL CDM-BUfFERS, CONSTANTS AND 
j' NOT MACRO-DEFINED' PARAMETERS. 



i AUTHOR i 



BERT HU8ER CSS/DP MUNICH 





l .PSECT 


CS5M0N 




.ENABL 


LSB 


, MEMORY 


MANAGEMENT DEFINITIONS 


KOSARO- 


172360 




KOSDRO- 


172320 




KISARO- 


172340 




KISAR5- 


172352 




KISAR6- 


172354 




KISAR7- 


172356 




K1SDR0- 


172300 




KISDR6- 


172314 




KISDR7- 


172316 




SISORO« 


172200 




UOSARO- 


177660 




UOSORO- 


177620 




UISARO- 


177640 




UISAR4- 


177650 




UISAR5- 


17 7652 




UISAR6' 


177654 




UISAR7- 


17/656 




UISDRO' 


177600 




UIS0R4« 


177610 




UISDR5' 


177612 




UISDR6- 


177614 




UISDR7- 


177616 




UOMPR- 170200 




CMOOE- 140000 




PMOOE- 30000 




SRO-177572 




SR3-172516 




$$PTYP 


.WORD 





MMTYP 


.WORD 





ME ME NO 


.WORD 


0,0 


KBBUFF 


,BLKB 


80. 


KBBENl' 






KBBPNT 


.WORD 


KBBUFF i INPUT 


INFLAG 


.WORD 


i INPUT 


OUTFLG 


.WORD 


j OUTPUT 


ERRFLG 


.WORD 





INPREQ 


.WORD 





PSDSWR 


.WORD 





RU6FLG 


.WORD 





STATUS 


.WORD 





*. .ER: 


.WORD 





SP£FLG 


.WORD 





SCOP AD 


1000 


iSAVE A 


i.$ASF 


I ,WQRD 






»IF : -LSIi IF -li-PDP 
I IF 0:N0 MM i IF 1:WITH MM 
jTOP Of CORE ANO CORE EXTENSION 
» STARTING FROM HERE TILL PROMES 
iTHt CONTENTS WILL BE CLEARED 
jWITH "ABO" 

I TERMINAL INPUT BUFFER 
I REFERENCE LABEL 
BUFFER POINTER 
•RUNNING" FLAG 
•RUNNING" FLAG 
I* ERROR HANOLING REQ.' FLAG 
I 'WAIT FOR SPECIAL INPUT" FLAG 
i SOFT WARE SWITCHREGISTER 
jRUBOUTMOOE-INOICATOR FLAG 
iBUFFER PS-CONTENT IF SAVED 
I HOLDS CURRENT ERROR NUMBER 
tUSEO IN I..KBI ANO I..WRT 
AWE A FOR SCOPE uOOP ADDRESS 
I SPECIAL ASCII INPUT FLAG 



E5 



IECll-A DIAGNOSTIC 
*..BUF 
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SEQ 56 



1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1543 

1549 

1550 

1551 

1552 

1553 

1554 



007176 
007200 

007202 
007210 
007213 
007256 
007316 
007360 
007421 
007445 
0075C3 
007524 
007601 
007652 
007662 
007704 
00-737 
010002 
010032 
010104 
010144 
010156 
010252 
010304 
010333 
010351 
010426 
010472 
010542 
010612 



010614 



000000 
000000 

133 

133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
040 
133 
133 
133 
133 
133 
040 
133 
110 
133 
040 
133 
133 
133 
133 
066 



103 
040 
113 
111 
111 
111 
111 
102 
123 
123 
123 
105 
040 
120 
105 
056 
117 
111 
040 
133 
111 
040 
040 
133 
115 
111 
127 
135 



104 
135 
105 
114 
114 
114 
114 
131 
131 
103 
125 
122 
040 
122 
122 
056 
120 
114 
040 
133 
107 
103 
040 
124 
105 
114 
105 



*SHLD: 
I WAS: 

PROMES 
DUMMES 
MKBOVF 
MILOCT 
MILDEC 
MILBIN 
MILEMT 
MILADR 
MSYERR 
MILSCP 

MERROR 

MERRP2 
MPWRFL 
MERCOV 
MERMLT 
MNOSUB 
MILTR1 
MILTR2 
MVERSN 

MERli 
MER2: 

♦MNOAV: 
MEMDEF; 
MAPER; 

N06: 



CDM..&J 



.WORD 

.WORD 

.NLIST 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.LIST 

♦DSABL 



j USED 
jUSED 



IN $. ,ADP 
FOR $..ADP 



j i 



[/ 







BEX 

/[CDM>]/ 

/( 1/ 

/[KEYBOARD BUFFER OVERFLOW} REENTER]/ 

/[ILLEGAL OCTAL INPUT J! REENTER]/ 

/[ILLEGAL DECIMAL INPUT !,' REENTER]/ 

/[ILLEGAL BINARY INPUT !! REENTER]/ 

/[ILLEGAL EMT -NUMBER]/ 

/[BYTE ADDRESS IS NOT ALLOWED ]/ 

/[SYNTAX ERROR •[]/ 

/[SCOPE LOOP SKIPPED TO A SUBSEQUENT ERROR 

/[SUSPECT AN INTERMITTEND HARDWARE ERROR[ }/ 

/[ERROR ]/ 

/ AT LOCATION : ]/ 

/[PROGRAM MADE POWER FAIL [ ]/ 

/[ERROR COUNTER OVERFLOW ON ERROR: ]/ 

/r...HALT AFTER ERROR...]/ 

/[OPTION NOT SUPPORTED IN THIS COM VERSION]/ 

/[ILLEGAL INTERRPT OR TRAP TO : ]/ 

/ FROM: ]/ 

/[[[[ COM V3.5 ---CSS DIAGNOSTIC MONITOR- --([[ / 

/HIGHEST MEMORY ADDRESS : ]/ 

/[ CONTENT SHOULD BE : ]/ 

/ BUT WAS : ]/ 

/[[THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: ]/ 

/[MEMORY MANAGEMENT UNIT IS DEFECT!!!/ 

/[ILLEGAL MAPPING ADDRESS SPECIFIED! •!•[ ]/ 

/[WE WILL TRY WITHOUT MEMORY MANAGEMENT! ]/ 

/6]/ 

BEX 
LSB 



IEC11 A 

S..BUF 

1 
2 
5 
4 



DIAGNOSTIC 



5 010614 
010614 
010620 

6 

7 010624 
010624 
010630 

8 010634 
010634 
010636 

9 010642 
010642 
010644 
010646 

10 010652 

11 010656 

12 010662 

13 010664 
010664 
010670 
010672 

14 010674 
010674 
010700 
010702 

15 010704 
010704 
010712 
010716 
010720 
010726 

16 010730 

17 010734 

18 010740 
01074'j 
010746 
010752 
010754 
010762 

19 010764 

20 010770 

21 010774 
010774 
011003 
011006 
011010 
011016 

22 011020 

23 011024 

24 011030 

25 011034 

26 011040 
011040 
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, TITLE IF.C11-A 
,NLIST CND 
.LIST MEB 



012746 021606 
004737 005654 



012746 021510 
004 737 005654 

005046 

004737 005020 

005700 

001402 

000137 010656 

012700 160010 

032700 000007 

001360 



020027 
103001 
000754 

020027 
101401 
000750 

012737 
012746 
005710 
012737 
005726 
010037 
062700 

012737 
012746 
005710 
012737 
005726 
010037 
062700 

012737 
012746 
005710 
012737 
005726 
010037 
062700 
010037 
062700 



160010 



177776 



006754 

010624 

000006 

024204 
000002 

0O6754 

010624 

000006 

024206 
000002 

006754 
010624 

000006 

024212 
000001 
024210 
000001 



Fb 



DIAGNOSTIC 



SEQ 57 



RGAIN; 



1*: 



000004 
000004 

000004 
000004 

000004 
000004 



012737 006754 000004 



WRITE Ml 

MOV OMl.-(SP) 

CALL *..WRT 

WRITE MES1 

MOV OMESl.-(SP) 

CALL I..WRT 

READ OCT.RO 

CLR -(SP) 

CALL I.. RED 

IF RO NE 00 GOTO It 

TST RO 

BEQ , *6 

JMP 1$ 

MOV $160010, RO 

BIT 07, RO 

BNE RGAIN 

IF RO LO 0160010 GOTO 

CMP RO, 0160010 

BHIS . *4 

BR RGAIN 

IF RO HI 0177776 GOTO 

CMP RO, 0177776 

BLOS . *4 

BR RGAIN 

ADRTST RGAIN 

MOV 01. .TOT ,804 

MOV ORGAIN.-CSP) 

TST (RO) 

MOV 06,804 

TST (SP)* 

MOV RO,CIR 

ADO 02 , RO 

ADRTST RGAIN 

MOV 01., TOT, 804 

MOV ORGAIN.-(SP) 

TST (RO) 

MOV 06 , 804 

TST (SP)* 

MOV RO,SMR 

ADD 02. RO 

ADRTST RGAIN 

MOV 0$.. TOT, 804 

MOV ORGAIN,~(SP) 

TST (RO) 

MOV 06 , 804 

TST (SP)* 

MOV RO.IOR 

ADD 01, RO 

MOV RO.IORHB 

ADD Ol.RO 

ADRTST RGAIN 

mov o$..roT,av>4 



I IDENTIFY TEST 

{SAVE 0M1 
I INITIATE 



ONTO STACK 
PRINTOUT 



{ENTER FIRST REG OF IECll-A 

{SAVE 0MES1 ONTO STACK 

{INITIATE PRINTOUT 
{INPUT REQUEST 

{INDICATE OCTAL INPUT REQUIRED 

{ACCEPT INPUT 

{IS RO ZERO ? 

i 

{SAVE DEFAULT VALUE 
{CHECK THREE LSB OF INPUT 
{IF NOT CLEAR, REQUEST AGAIN 
RGAIN { 

{COMPARE RO AND 0160010 

1 

RGAIN { 

{COMPARE RO AND 0177776 

i 
{ 

{PROVIDE TIMEOUT ENTRY 
{SAVE RETURN ADDRESS ON STACK 
iIS ADDRESS AVAILABLE ? 
{RESTORE TIMOUr VECTOR 
{CORRECT STACK 

{SAVE CIR ADDRESS 

{BUILD NEXT ADDRESS 

{PROVIDE TIMEOUT ENTRY 
{SAVE RETURN ADDRESS ON STACK 
iIS ADDRESS AVAILABLE ? 
{RESTORE TIMOUT VECTOR 
{CORRECT STACK 

{SAVE SMR REG ADDRESS 

{BUILD NEXT ADDRESS 

{PROVIDE TIMEOUT ENTRY 
{SAVE RETURN ADDRESS ON STACK 
iIS ADDRESS AVAILABLE ? 
{RESTORE TIMOUT VECTOR 
{CORRECT STACK 

{SAVE IOR REG ADDRESS 

{BUILD HIGH-BYTE ADDRESS 

{OF IOR 

{BUILD NEXT ADDRESS 

{PROVIDE TIMEOUT ENTRY 



G5 



IEC11-A DIAGNOSTIC 


MACRO M1200 3C 


$,.BUF 






011046 


012746 


010624 


011052 


005710 




011054 


01273/ 


000006 000004 


011062 


005726 




27 011064 


010037 


024214 


26 011070 






011070 


012746 


021666 


011074 


004737 


005654 


29 011100 






011100 


005046 




011102 


004737 


005020 


30 011106 






011106 


005700 




011110 


001402 




011112 


000137 


011122 


31 011116 


012700 


000270 


32 011122 






011122 


020027 


000040 


011126 


103001 




011130 


000757 




33 011132 






011132 


020027 


000774 


011136 


101401 




011140 


000753 




34 011142 


020077 


013046 


35 011146 


001406 




36 011150 






011150 


012746 


022034 


011154 


004737 


005654 


37 011160 


000137 


011070 


38 011164 


010037 


024224 


39 011170 






011170 


012746 


0217:0 


011174 


004737 


005654 


40 011200 






011200 


005046 




011202 


004737 


005020 


41 011206 






011206 


005700 




011210 


001402 




011212 


000137 


011222 


42 011216 


012700 


000035 


43 011222 






011922 


020027 


000001 


011226 


103001 




011230 


000757 




44 011232 






011232 


020027 


000044 


011236 


101401 




011240 


000753 




45 011242 


010037 


024226 


46 011246 


012737 


000100 024216 


47 011254 


012737 


000040 024220 


48 011262 


050037 


024216 


49 011266 


050037 


024220 


50 011272 


004 7 37 


011740 


51 011276 


017700 


012712 
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SEQ 58 



VECAIN! 



2$ 



SAV: 
ADDRIN i 



3$ 



2% 



a$ 



MOV 

TST 

MOV 

TST 

MOV 

WRITE 

MOV 

CALL 

READ 

CLR 

CALL 

IF RO 

TST 

BEQ 

JMP 

MOV 

IF RO 

CMP 

BHIS 

BR 

IF RO 

CMP 

BLOS 

BR 

CMP 

BEQ 

WRITE 

MOV 

CALL 

JMP 



ORGAIN.-CSP) 

CRO) 

06,004 

CSP)* 

RO.VSR 

MES2 

0MES2,-CSP;> 

4. .WRT 

OCT.RO 

-(SP) 

♦..RED 
NE 00 GOTO 2$ 

RO 

.♦6 

2$ 

d270.R0 
LO 040 GOTO VECAIN ; 

R0,*40 i COMPARE RO 

.♦4 , 

VECAIN } 

HI 0774 GOTO VECAIN ; 



jSAVE RETURN ADDRESS ON STACK 

jIS ADDRESS AVAILABLE ? 

I RESTORE TIMOUT VECTOR 

t CORRECT STACK 
{SAVE VSR REG ADDRESS 
{REQUEST VECTOR ADDRESS OF IEC11-A 

,SAVE 0MES2 ONTO STACK 

I INITIATE PRINTOUT 
j INPUT REQUEST 

j INDICATE OCTAL INPUT REQUIRED 

I ACCEPT INPUT 

iIS RO ZERO ? 
j SAVE DEFAULT VALUE 



AND 040 



R0.0774 

.♦4 

VECAIN 

RO.aVSR 

SAV 

MES6 

0MES6.-CSP) 

$. .WRT 

VECAIN 



MOV RO.VECA 



WRITE 

MOV 

CALL 

READ 

CLR 

CALL 

IF RO 

TST 

BEQ 

JMP 

MOV 

IF RO 

ChP 

BHIS 

BR 

IF RO 

CMP 

BLOS 

BR 

MOV 

MOV 

MOV 

BIS 

BIS 

JSR 

MOV 



MES5 

0MES5.-CSP) 

$. .WRT 

OCT.RO j INPUT 

- C SP ) 

t. .RED 
NE 00 GOTO 3$ j 

RO 

. >6 

3$ 

035, RO 
LO 01 GOTO ADDRIN 

R0.01 

,*4 

ADDRIN 
HI 036. GOTO ADDRIN 



{ COMPARE RO AND 0774 
j 

j IS INPUT EQUAL TO VSR ? 

I IF YES. SAVE INPUT AND CONTINUE 

lIF NOT, WRITE MESSAGE 

iSAVE *MES6 ONTO STACK 
{INITIATE PRINTOUT 

{REENTER 

» SAVE IEC11-A VECTOR ADDRESS 

{REQUEST IECU-A BUS ADDRESS 

j SAVE *MES5 ONTO STACK 
j INITIATE PRINTOUT 



j INDICATE OCTAL INPUT REQUIRED 
{ACCEPT INPUT 

;IS RO ZERO ? 



i 



R0.036. 

. *4 

ADDRIN 

RO.IECAAD 

0100, TALKER 

040.LISTNR 

RO, TALKER 

RO.LISTNR 

PC.TESTQ 

SVSR.RO 



{SAVE DEFAULT VALUE 

1 
{COMPARE RO AND 01 

I 

i 

{COMPARE RO AND 036. 

{SAVE IECll-A BUS ADDRESS 
{PRE -ADDRESS TALKER 
,PRE -ADDRESS LISTENER 
jSAVL TALKER ADDRESS 
{SAVE LISTENER ADDRESS 
{TEST LON SWITCH FEATuREt 
{CHECK VECTOR ADDRESS 



**V02£QQ** 



¥*te 













H5 
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52 011302 


020027 


000774 




CMP 


R0.4774 
30$ i 


53 011306 


101003 






BHI 


54 011310 


020027 


000040 




CMP 


RO t *40 


55 011314 


103005 






BHIS 


4$ 


56 011316 






30$: 


WRITL 


MES2i 


011316 


012746 


021666 




MOV 


0MES2.-CSP) 


011322 


00473" 7 


005654 




CALL 


$. .WRT 


57 011326 


000763 






BP 


8»j 


58 011330 


020027 


000040 


4$: 


CMP 


R0,*40j 


59 011334 


103770 






BLO 


30$ j 


60 011336 


010037 


024222 




MOV 


RO, VECTOR 



SEQ 59 



t LEGAL VECTOR 
I IF HI NO 
{LEGAL VECTOR 
I ir HIS YES 



f **VOlE02** 
l**V01E02+* 



lIF HIS YES »**V01E02** 

I REQUEST ANOTHER VECTOR ADDRESS 
iSAVE 0MES2 ONTO STACK 
i INITIATE PRINTOUT 

I CHECK AGAIN 

{CHECK RANGE 

j IF LO, INVALID 

j GET VECTOR ADDRESS 



IEC11-A DIAGNOSTIC 
TEST SELECT ROUTINE 



15 
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SEQ 60 



62 










,3BT)L 


TEST SELECT ROUTINE 


63 011342 








L.SPCi 


REMVEC 


*VECA 




011342 


012746 


024224 






MOV 


*VECA, -CSP) 


jSAVE 0VECA ONTO STACK 


011346 


104002 








EMI 


2 


iRESET OVECA VECTOR 


64 011350 


005737 


007152 






TST 


OUTFLG 


iWAIT FOR ANY OUTPUT COMPLETE 


65 011354 


001375 








bNC 


. -4 


J . . . 


66 011356 


000005 








RESET 




i CLEAR THE WORLD 


67 011360 










SET6 


&*TK3 


j RE -ENABLE TTY 


011360 


052737 


000100 


177560 




BIS 


0BIT6.BMKS 




68 011366 










URITE 


TPMSG 


1 ASK FOR PRINTING START MESSAGES 


011366 


012746 


024070 






MOV 


*TPMSG f -CSP) 


jSAVE *TPMSG ONTO STACK 


011372 


004737 


005654 






CALL 


$..WRT 


j INITIATE PRINTOUT 


69 011376 










READ 


ASC 


|Y OR N? 


0U*>76 


012746 


000010 






MOV 


♦10,-CSP) 


; INDICATE ASCII INPUT IN 


011402 


004737 


005020 






CALL 


I. .RED 


jACCEPT INPUT 


70 011406 










IF RO 


NE P*y GOTO SFLAG 


I SET FLAG 


011406 


020027 


000131 






CMP 


RO.*' Y 


iCOMPAfiE RO AND (f Y 


011412 


001402 








BEQ 


.*6 


i 


011414 


000137 


011426 






JMP 


SFLAG 


I 


71 011420 


005037 


011670 






CLR 


MSGFLG 


jPRINT OUT START/END MESSAGES 


72 011424 


000402 








BR 


LAB11 




73 01.1426 


005237 


01\670 




SFLAG: 


INC 


MSGFLG 


iNO PRINT OUT 


74 011432 








LAB11: 


WRITE 


MESNEX 


jREQUES T NEXT TEST TO RUN 


0114 32 


012746 


024044 






MOV 


OHESNEX.-CSP) 


j SAVE ftMESNEX ONTO STACK 


011436 


004737 


005654 






CALL 


♦ . .WRT 


i INITIATE PRINTOUT 


75 011442 










READ 


DECRO 


jWAIT FOR INPUT 


011442 


012746 


000002 






MOV 


♦2,-CSP) 


j INDICATE OECIMAL INPUT 


011446 


004737 


005020 






CALL 


*. ,RED 


jACCEPT input 


76 011452 










IF RO 


HI #14. GOTO LAB11 j 


01145."? 


020027 


000016 






CMP 


R0,014. 


j COMPARE RO AND #X3. 


011456 


101401 








BLOS 


. *4 


i 


011460 


000764 








BR 


LAB11 


» 


77 011462 










IF RO 


EQ 00 GOTO TESTAL 


\ 


011462 


005700 








TST 


RO 


tlS RO ZERO V 


011464 


001002 








BNE 


. »6 


i 


011466 


000137 


011536 






JMP 


TESTAL 


i 


78 011472 


012737 


177777 


011666 




MOV 


♦177777, TSTREP 


jLOOP ON SINGLE TESTS 


79 011500 


006300 








ASL 


HO 


jBUILD WORD OFFSET INTO TABLE 


80 011502 


010027 








MOV 


RO.(PC)* 


j AND SAVE 


81 011504 


000000 






OFFSET j 


.WORD 





i HOLDS CURRENT TEST NUMBER 


82 011506 


013737 


011504 


011664 


SINGLE: 


MOV 


OFFSET, OFFCNT 


i 


83 011514 


062737 


011626 


011664 




ADO 


*TT, OFFCNT 


j 


84 011522 


017737 


000136 


011664 




.10 V 


BOFFCNT. OFFCNT 


i 


85 011530 


004777 


000130 






JSR 


PC.OOFFCNT 


iGOTO SELECTED TEST 


86 011534 


000764 








BR 


SINGLE 


iREPEAT TEST 


87 011536 


012737 


000000 


011666 


TESTAL: 


MOV 


OO.TSTREP 


jNO LOOP ON SINGLE TESTS 


88 011544 


012727 


011630 






MOV 


#TT*2.(PC)* 


iGET ADDRESS OF FIRST *EST 


89 011550 


000000 






SEQPNT: 


.WORD 





iPOINTER FOR TEST IN PROGRESS 


90 011552 


013737 


011550 


011664 


SEQ: 


MOV 


SEQPNT, OFFCNT 


jLOAD ADDRESS OF NEXT TEST 


91 011560 


017737 


000100 


011664 




MOV 


UOFFCNT, OFFCNT 


1 


92 011566 


004777 


000072 






JSR 


PC. SOfFCNT 


iCOTO EXECUTE TEST 


93 011572 


023727 


011550 


011662 




CMP 


SEQPNT, OTTE -4 


lALL DONE ? 


94 011600 


001404 








BEQ 


TESTL1 


j IF EQ, YES 


95 011602 


062737 


000002 


011550 




ADO 


<?2. SEQPNT 


, POINT TO NEXT TEST 


96 011610 


000760 








BR 


SEQ 


jAND DO NEXT 


97 011612 








TESTLlj 


URITE 


MESENO 


,END OF TEST 


011612 


012746 


024166 






MOV 


0MESEND,-CSP) 


jSAVE OMESEND ONTO STACK 



RO REQUIRED 



REQUIRED 



IECU-A DIAGNOSTIC 
TEST SELECT ROUTINE 



011616 

98 011622 

99 011626 
011634 
011642 

100 011646 
011654 
011662 

101 011664 

102 011666 

103 011666 

104 011670 



J 



5 
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SEQ 61 



004 737 005654 

000137 011536 

000000 012106 012250 TT; 

012456 012700 013302 

013444 013754 

014372 014516 015400 

017046 017510 020176 

021114 

000000 

000000 
000000 



, INITIATE PRINTOUT 



CALL t..WRT 
JMP TESTAL 
.WORD 0, TEST1 , TEST2 , TEST3 . TEST4 , TESTS, TEST6 , TEST7 



.WORD TEST8,TEST9 I TEST10,TEST11 I TEST12,TEST13,TESU4 



OFFCNT; 


.WORD 





TTE: 






TSTREP; 


.WORD 





MSGFLGi 


.WORD 






I MESSAGE FLAG 



I<5 



IEC11 -A 
LOCAL MACRO 

10? 

ioa 

109 

110 

111 

112 

113 

114 

115 

116 

117 

116 

119 

120 

121 

122 

125 

124 

125 

126 

127 

128 

129 

ISO 

131 

132 

133 

134 

135 

136 

137 

136 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 



DEFINITIONS 
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SEQ 62 



I ♦ 

j THIS 

; USED 



L: 



.SBTTL LOCAL MACRO DEFINITIONS 

SECTION CONTAINS ONLY MACRO DEFINITIONS 
IN THE IEC-11A DIAGNOSTIC. 



.MACRO 

BIS 

.ENOM 

.MACRO 

BIS 

.ENDM 

.MACRO 

BIS 

.ENOM 

.MACRO 

BIS 

.ENDM 



.MACRO 

TST 

BNE 

WRITE 

RETURNj 

.ENDM 



MCLEAR 

*eiT5,8CIR 

MCLEAR 

SACS 

♦BITO.SCIR 

SACS 

INHSRQ 

oemo.aciR 

INHSRQ 

INTEN6 

*eiT6,QCIR 

INTEN6 



TSTEND 
MSGFLG 
L 

MTE'A; 

TSTEND 



A.?L 



.MACRO SIC 

BIS *BI16,QSMR 

.ENDM SIC 

.MACRO SAVCIR 

MOV aCIR.RO 

.ENDM SAVCIR 

.MACRO SAVSMR 

MOV 8SMR.RI 

.ENOM SAVSMR 

.MACRO SAVIOR 

MOV WI0R.R2 

.ENDM SAVIOR 

.MACRO GTS 

BIS OtilT2,aSMR 

.ENDM GTS 

.MACRO LTN 

SET4 3SMR 

.ENOM LTN 

.MACRO LUN 

SETS SSMR 

.ENDM LUN 



{EXECUTE MASTER CLEAR 



j SET SACS BIT IN CIR 



I **V02E00** 
jSET INHIBIT SRQ INTERRUPT 

j **V02E0O** 



{ENABLE INTERRUPT IN IEC-11A 



{PRINTOUT OR NOT? 

; TEST' A END MESSAGE 
{RETURN TO CALLER 



I SEND INTERFACE CLEAR 
jSAVE CIR CONTENT 
;SAVE SMR CONTENT 
jSAVE IOR CONTENT 
{GO TO STAND BY 



L5 



mimmmhiom™™ m *°° 
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SEU 6* 



164 
165 
166 
167 
168 
169 
170 
171 
17? 
17? 
174 
175 
176 
177 
178 
179 

ieo 

181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
190 
199 
200 
201 
202 
203 
204 
205 
206 
207 



011672 
011676 
011702 
011704 
011706 
011710 
011712 
011714 
011716 
011720 
011722 
011726 
011732 
011734 
011736 



013746 
013700 
006316 
005500 
006200 
005516 
061600 
005616 
060016 
005600 
012637 
010037 
000207 
135753 
024642 



C: 



.MACRO 

SET7 

,ENDM 

.MACRO 

BIS 

.ENDM 

.MACRO 

SETO 

.ENOM 

.MACRO 
SAVCIR 
SAVSMK 
SAVIOR 
♦ ENDM 



SRE 

8S.1R 

SRE 

TCA 

OBIU.SSMR 

TCA 

TCS 
SSMR 

TCS 

SAVIfcC 



jSEND REMOTE ENABLE 



j TAKE CONTROL ASYNC 



j TAKE CONTROL SYNCR. 



SAVIEC 



. MACRO 

DEC 

.UORD 



LOOP 

(PC)* 

A 

If C NE 00 GOTO B 

MOV OA.C 

.ENOM LOOP 



A,B,?C 



I COUNT LOOPS 



{SETUP NEW LOOP COUNT 



011734 
011736 



011734 
01X736 



RANDOM; 


MOV 


RA, -(SP) 




MOV 


RB.RO 




ASL 


SSP 




ADC 


RO 




ASR 


RO 




ADC 


SSP 




ADD 


asp.R0 




SBC 


asp 




ADD 


ro.ssp 




SBC 


no 




MOV 


(SP)»,RA 




MOV 


RO.RB 




RETURN 




RA : 


.WORD 


135753 


RB; 


.WORD 


024642 



M5 
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209 










.SBTTL 


TEST LON SWITCH 


FEATURE 






210 011740 


104000 






TESTO: 


SCOPE 






{ 


**V02E00** 


211 011742 










WRITE 


SLON 


j SET LON SW MESSAGE 


{ 


**V02£00** 


011742 


012746 


022112 






MOV 


OSLON, (SP) 


{SAVE OSLON ONTO S 


5 TACK 


011746 


004737 


005654 






CALL 


1. .WRT 


{INITIATE PRINTOUT 


212 011752 










READ 


OCT.RO 








011752 


005046 








CLR 


-(SP) 


{INDICATE OCTAL 


INPUT REQUIRED 


011754 


004737 


005020 






CALL 


*. .RED 


{ACCEPT INPUT 






213 011760 










MCLEAR 




{PRODUCE CLEAN STATUS 


l 


*+V02E00** 


011760 


052777 


000040 


012216 




BIS 


0BIT5,SCIR 


{EXECUTE MASTCR CLEAR 






214 011766 


027727 


012212 


000602 




CMP 


SCIR.06Q2 


{STATE CHGE.INT.LON 


i 


**V02E00* 


215 011774 


001404 








BEQ 


1$ 


{BRANCH IF CORRECT 


i 


♦+V02E00** 


216 011776 










ERROR 


114. 


tCIR CONT NuT 0602 


i 


**V02EOO** 


011776 


104562 








TRAP 


114. 


jERROT 114. 






012000 


000000 








.WORD 





{ERROR COUNT 






217 012002 


000137 


011740 






JMP 


TESTO 




i 


**V02E00** 


218 012006 


02/727 


012174 


010000 


1$: 


CMP 


BSMR.0BIU2 


jLACS SET EXCLUSIVELY? 


i 


*+V02E00** 


219 012014 


001404 








BEQ 


at 


{BRANCH IF O.K. 


i 


♦♦V02EOO** 


220 012016 










ERROR 


115. 


{LACS NOT OR NOT ONLY 


i 


**VQ2E00+* 


012016 


104563 








TRAP 


115, 


{ERROR 115. 






012020 


000000 








.WORD 





{ERROR COUNT 






221 012022 


000137 


011740 






JMP 


TESTO 




i 


♦♦V02E00** 


222 012026 








2$: 


WRITE 


CLON 


{RESET LON SW MSG 


{ 


♦♦V02E00** 


012026 


012746 


022216 






MOV 


OCLON,-(SP) 


{SAVE OCLON ONTO 


STACK 


012032 


004737 


005654 






CALL 


i. .WRT 


{INITIATE PRINTOUT 


223 012036 










READ 


OCT.RO 








012036 


005046 








CLR 


-(SP) 


{INDICATE OCTAL 


INPUT REQUIRED 


012040 


004 737 


005020 






CAuL 


$. .RED 


{ACCEPT INPUT 






224 012044 


022777 


000600 


012132 




CMP 


0600, 8CIR 


{STATE CHGL,INT 


• 


♦*V02E00** 


225 012052 


001404 








BEQ 


3$ 


{BRANCH IF O.K. 


; 


♦♦V02E00** 


226 012054 










ERROR 


116. 


{CIR CONTENT NOT 0600 


a 


**V02E00** 


012054 


104564 








TRAP 


116. 


{ERROR 116. 






012056 


000000 








.WORD 





{ERROR COUNT 






227 012060 


000137 


011740 






JMP 


TESTO 




i 


**V02E00** 


228 012064 


027727 


012116 


010000 


3$j 


CMP 


aSMR,0BIU2 


{LACS STILL SET? 


s 


♦♦V02E00** 


229 012072 


001404 








BEQ 


4) 


{BRANCH IF VES 


i 


♦♦V02EOO** 


230 012074 










ERROR 


117. 


{ERROR IF NO 


i 


•+V02E00** 


012074 


104565 








TRAP 


117, 


{ERROR 117. 






0120/6 


000000 








.WORD 





{ERROR COUNT 






231 012100 


00013? 


011740 






JMP 


TESTO 




j 


**V02E0O** 


232 012104 


000207 






4$t 


RETURN 




{RETURN FROM SUBTEST 


i 


**V02E00** 



SEQ 64 



N5 



IEC11 -A DIAGNOSTIC! MACRO M1200 30-MAR-84 16:02 PAGE 

TEST 1 EXECUTE MASTER CLEAR 



34 



SEQ 65 



234 








.SBTTL 


TEST 1 EXECUTE 


MASTER CLEAR 


235 012106 


00573 7 


011670 


TEST 1 ; 


TST 


MSGFLG 


{PRINTOUT OR NOT? 


236 012112 


001004 






BNE 


L0PT1 




237 012114 








WRITE 


MT1S 


jTESTl START MESSAGE 


012114 


012746 


022324 




MOV 


0MT1S, -CSP) 


j SAVE 0MT1S ONTO STACK 


012120 


004737 


005654 




CALL 


$..WRT 


{INITIATE PRINTOUT 


238 012124 


104000 




L0PT1: 


SCOPE 




t SCOPE LOOP MARKER 


239 012126 








MCLEAR 






012126 


052777 


000040 012050 




BIS 


0BIT5.SCIR 


j EXECUTE MASTER CLEAR 


240 012134 


017700 


012046 




MOV 


SSMR.RO 


l SAVE SMR CONTENT 


241 012140 


001404 






BEG 


1$ 


l IF EQ, YES 


242 012142 








ERROR 


1. 


{ILLEGAL SMR AFTER MC 


012142 


104401 






TRAP 


1. 


j ERROR 1. 


012144 


000000 






.WORD 





; ERROR COUNT 


243 012146 


000137 


012106 




JMP 


TEST1 


1 


244 012152 






1$: 


SAVCIR 






012152 


017700 


012026 




MOV 


QCIR.RO 


j SAVE CIR CONTENT 


245 012156 


001404 






BEQ 


2$ 


j IF EQ. NO BIT SET 


246 012160 








ERROR 


2. 


j ILLEGAL CIR AFTER MC 


012160 


104402 






TRAP 


2. 


{ERROR 2. 


012162 


000000 






.WORD 





j ERROR COUNT 


247 012164 


000137 


012106 




JMP 


TEST1 


I 


246 012170 


017700 


012016 


2$: 


MOV 


SIOR.RO 


jSAVE IOR CONTENT 


24^ 012174 


001404 






BEQ 


3$ 


{IF EQ, NO BIT SET 


250 012176 








ERROR 


3. 


; ILLEGAL IOR AFTER MC 


012176 


104403 






TRAP 


3. 


I ERROR 3. 


012200 


000000 






.WORD 





jERROR COUNT 


251 012202 


000137 


012106 




JMP 


TEST1 


t 


252 012206 






3$: 


LOOP 


-1.L0PT1 




012206 


005327 






DEC 


(PC)* 


j COUNT LOOPS 


012210 


177777 




64$: 


.WORD 


-1 


i 


012212 


005737 


012210 




fst 


64$ 


{IS 64$ ZERO ? 


012216 


001401 






BEQ 


, »4 




012220 


000741 






BR 


L0PT1 




012222 


012737 


177777 012210 




MOV 


#-1.64$ 


jSFTUP NFU 1 OOP COUNT 


253 012230 








TSTEND 


1 




012230 


005737 


011670 




TST 


MSGFLG 


{PRINTOUT OR NOT? 


012234 


001004 






BNE 


66$ 




012236 


012746 


022371 




MOV 


frttTEl, -CSP) 


jSAVE 0MTE1 ONTO STACK 


012242 


004 73 7 


005654 




CALL 


$,.WRT 


{INITIATE PRINTOUT 


012246 


000207 




66$: 


RETURN; 




{RETURN TO CALLER 



B6 



IEC11 -A DIAGNOSTIC 



TEST 



TEST SACS BIT 



MACRO M120O 
IN CIR 



30-MAR-84 16}0? PAGE 35 



SF.Q 66 



255 

257 
258 



259 

260 
261 

262 

263 

264 

265 



266 
267 
268 

269 

270 

271 
272 



273 
274 
275 

276 

277 

278 
279 



280 

281 



282 



012250 

012254 

012256 

012256 

012262 

012266 

012266 

012274 

012276 

012276 

012304 

012304 

012310 

012310 

012314 

012316 

012316 

012320 

012322 

012326 

012330 

012330 

012336 

012336 

012342 

012342 

012346 

012350 

012350 

012352 

012354 

012360 

012362 

012362 

012370 

012370 

012376 

012376 

012402 

012404 

012404 

012406 

012410 

012414 

012414 

012416 

012420 

012424 

012426 

012430 

012436 

012436 

012442 

012444 

012450 

012454 



005737 
001004 

012746 

004737 

052777 
104000 



011670 



022405 
005654 

000040 011710 



TESr2i 



LQPT2i 



052777 000001 011700 

0177O0 011674 

032700 000001 
001004 



104404 
000000 
000137 
104000 



012250 



1$: 



042777 00000* 011646 

017700 011642 

032700 000001 
001404 



104405 
OOOOOO 
000137 
104000 

052777 

052777 

017700 
001404 

104406 
OOOOOO 
000137 

005327 

177777 
005737 
001401 

000717 
012737 

005737 
001004 
012746 
004 / 3 7 
000207 



012250 

000001 011614 
000040 011606 
011602 

012250 

012416 

177777 012416 

011670 

022452 
005654 



2*s 



3f: 
64 1: 



66$; 



.SBTTL 

TST 

BNE 

WRITE 

NOV 

CALL 

MCLEAR 

BIS 

SCOPE 

SACS 

BIS 

SAVCIR 

MOV 

TSTO 

BIT 

BNE 

ERROR 

TRAP 

.WORD 

JMP 

SCOPE 

CLRO 

BIC 

SAVCIR 

MOV 

TSTO 

BIT 

BEQ 

ERROR 

TRAP 

.WORD 

JMP 

SCOPE 

SACS 

BIS 

MCLEAR 

BIS 

SAVCIR 

MOV 

BEQ 

ERROR 

TRAP 

.WORD 

JMP 

LOOP 

DEC 

.WORD 

TST 

BEQ 

BR 

MOV 

TSTFND 

TST 

BNF 

MOV 

CALL 

RETURN! 



TEST 



TEST 2 

MSGFLG 

L0PT2 

MT2S 

•MT2S.-CSP) 

I. ,WRT 

<miT5.SCIR 



*eno,aciR 

BCIR.RO 

R0 

•BITO.RO 

1« 

4. 

<*. 



TEST2 

BCIR 

•bito.bcir 
ocir.ro 

RO 

♦6IT0.R0 

2$ 

5. 
5. 


TEST2 



06IT0.0CIR 

06IT5.OCIR 

8CIR.R0 
31 

6, 

6. 



TEST2 

•1,1. OPT? 

(PC)» 

I 
641 
. *4 
L0PT2 
•-1,641 
2 

MSGFLG 
661 

*MTE2,«(SP) 
f,,URT 



SACS BIT IN CIR 

jPRINTOUT OR NOT? 

ITEST2 START MESSAGE 

I SAVE *MT2S ONTO STACK 
lINITIATE PRINTOUT 

I PRODUCE CLEAR CONTROLLER STATE 

lEXECUTE MASTER CLEAR 

I SCOPE LOOP MARKER 

|SET SACS BIT IN CIR 

l SAVE CIR CONTENT 

I 

|IF NE, SET 

j SACS BIT NOT SET 
(ERROR 4. 
I ERROR COUNT 

I SCOPE LOOP MARKER 
iTRY TO RESET SACS BIT 



I SAVE CIR CONTENT 
jSACS RESET ? 

lIF EQ, YES 

iSACS NOT RESET BY BIC 

lERROR 5. 

j ERROR COUNT 

I SCOPE LOOP MARKER 

|SET SACS BIT IN CIR 

(EXECUTE MASTER CLEAR 

iIS SACS CLEAR AFTER MC ? 

(SAVE CIR CONTENT 

I IF EQ, YES 

j SACS NOT RESET B^ MC 

) ERROR 6. 

j ERROR COUNT 
l 

I COUNT LOOPS 

iIS 641 ZERO ? 

j SETUP NEW LOOP COUNT 
j PRINTOUT OR NOT? 

;SAVE *MTE2 ONTO STACK 
I INITIATE PRINTOUT 
iRETURN TO CALLER 



mw mnmn 10 *»« mm? l6io? page 3b 



C6 



SE.Q 67 



284 

285 
286 
287 



288 

289 

290 

291 

292 
293 



294 
295 

296 

297 
298 



299 

300 
301 

302 

303 
3(K 



305 
306 

307 

308 
309 



310 
311 



312 



012456 

012462 

012464 

012464 

0124 70 

0124 74 

012474 

012502 

012504 

012504 

012512 

012512 

012520 

012522 

012522 

012524 

012526 

012532 

012532 

012540 

012540 

012546 

012550 

012550 

012552 

012554 

012560 

012562 

012562 

012570 

012570 

012576 

012600 

012600 

012602 

012604 

012610 

012610 

012616 

012616 

012624 

012626 

012626 

012630 

012632 

012636 

012636 

012640 

012642 

012646 

012650 

012652 

012660 

012660 

012664 

012666 



005737 
001004 

012746 

004737 

052777 
104000 

05277? 

032777 
001004 

104551 
000000 
000137 

042777 

032777 
001404 

104552 
OOOOOO 
000137 

104000 

052777 

032777 
001004 

104553 
000000 
000137 

052777 

032777 
001404 

104556 
OOOOOO 
000137 

005327 

177777 
005737 
001401 
0007U 
012737 

005/37 

001004 
012746 



011670 



022466 
005654 



000040 011502 



002000 
002000 

012456 
002000 
002000 

012456 

002000 
002000 

012456 
000040 
002000 

012456 

012640 

177777 
011670 
022554 



TEST3* 



L0PT2A; 



SBTTL 



011472 
011464 



011444 
011436 



1$ 



2$ 



011414 
011406 



011366 
011360 



3$ 



41 j 

64* 



012640 



BNE 

WRITE 
MOV 
CALL 
MCLEAR 
BIS 
SCOPE 
INHSRQ 
BIS 
TST10 
BIT 
BNE 
ERROR 
TRAP 
.WORD 
JMP 
CLR10 
BIC 
TST10 
BIT 
BEQ 
ERROR 
TRAP 
.WORD 
JMP 
SCOPE 
INHSRQ 
BIS 
TST10 
BIf 
BNt 
ERROR 
iftAP 
WORD 
JMP 

MCLEAR 
BI? 

1 JUO 
BIT 

BEQ 

LSH'jR 

TRAP 

.WORD 

JMP 

LOOP 

DEC 

.WORD 

TST 

BEQ 

BR 

MOV 

TSTENQ 

TST 

BNE 

MOV 



TEST 3 TEST CIR BIT 10 INHIBIT SRQ INTERRUPT 

MSGFLG jPRINTQUT OR NOT? 

L0PT2A 

MT2AS »GIVE TEST3 START MSG j **V02E00** 

*MT2AS,-(SP) » SAVE *MT2AS ONTO STACK 

I..WRT (INITIATE PRINTOUT 

jPROOUCE CLEAR CONTR STATE j **V02EOO** 

i EXECUTE MASTER CLEAR 

I SCOPE LOOP ENTRY | ♦♦V02E0O** 

»Str SRQ INT INHIBIT ; **V02E00** 

jSET INHIBIT SRQ INTERRUPT 

iIS BIT 10 IN CIR SET? i **V02E00** 



$BIT5,fiCIR 



♦eino.aciR 

SCIR 

*eiTio,aciR 

it 

105. 

105. 



TEST3 

OCIR 

06IT10.0CIR 

OCIR 

•BIUO.BCIR 
21 

106. 
106. 

TSST3 



06IT10.SCIR 
SCIR 

♦emo.sciR 

3$ 

107. 

107. 



TEST3 

*eiT5,5)CIR 
OCIR 

•biuo.bcir 

41 

110. 

no. 



TFST3 

-1.L0PT2A 

(PC)* 

-I 

641 

. »4 

L0PT2A 

* 1,64$ 

2A 

MSGFLG 

661 

•MTE2A»-(SP) 



» BRANCH IF SET 

jBIT 10 IN CIR NOT SET 

l ERROR 105. 

i ERROR COUNT 

iRESET BIT 10 IN CIR 

I CLEAR AGAIN ? 

, BRANCH IF YES 
jBIT 10 NOT CLEAR 

lERROR 106. 

lERROR COUNT 



I **V02E00** 
» **V02E00** 



j **V02EOO** 

I *#V02E00** 

j ♦♦V02E00** 

j **V02E00** 

j **V02E00** 



I ♦*V02E00*a 



jSET SRQ INT 
iSET INHIBIT 
lLOOK IF SET 



INHIBIT j **V02EOO«* 

SRQ INTERRUPT 

AGAIN i **V02EOO** 



i BRANCH IF O.K. 
jBIT 10 IN CIR NOT 

lERROR 107. 

, ERROR COUNT 



j **V02E00** 
SET AGAIN j **VO2EO0** 



iRESET BIT10 IN CIR BY 
lEXECUTE MASTER CLEAR 
I LOOK IF DONE 



MC I **V02E00** 



I ♦♦V02E00** 



iBRANCH IF O.K. t 

jBITIO IN CIR NOT CLEARi 

, ERROR 110. 

j ERROR COUNT 



jLOOP IN STEP? 
I COUNT LOOPS 

j IS 64$ ZERO ? 

I 

» SETUP NEW LOOP COUNT 
iRETURN TO CALLER 
I PRINTOUT OR NOT? 



**V02EOO»* 
**V02E00** 



**V02E00** 
**V02E0Q»» 



iSAVt 0MTE2A ONTO STACK 



D6 

tist i 3 A mnmn 10 w»*BxS" i sfla imm?^ ibi0? pagf - **- 1 seq 6q 

012672 004737 005654 CALL J..WRT iINITIATE PRINTOUT 

012676 000207 66$ J RE TURN I ^RETURN TO CALLER 



E6 



IECU-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:0? PAGE 3/ 

TEST 4 TEST SACS SIC SIAS ILLMSG CACS 



SEQ 69 



314 
315 
316 
317 



318 

319 

320 
321 

322 
323 
324 
325 

326 

327 

328 

329 
330 



331 

332 

333 
334 



335 
336 

337 
338 



339 
340 

341 
342 



343 
344 
345 

346 
34 7 
348 
349 



012700 

012704 

012706 

012706 

012712 

012716 

012716 

012724 

012724 

012732 

012734 

012734 

012742 

012744 

012746 

012750 

012750 

012754 

012754 

012760 

012760 

012766 

012766 

012772 

012774 

012774 

012776 

013000 

013004 

013004 

013010 

013012 

013012 

013014 

013016 

013022 

013022 

013026 

013030 

013030 

013032 

013034 

013040 

013040 

013044 

013046 

013046 

013050 

013052 

013056 

013062 

013062 

013070 

013072 

013074 

013076 



005737 
001004 

012746 
004 737 



011670 



022570 
005654 



052777 000040 011260 
000001 011252 



TEST4 5 



L0PT3; 



052777 
104000 

052777 
000240 
000240 
000240 

017700 

017701 

042777 

032700 
001404 

104407 

oooooo 

000137 

032701 
001004 

104412 
OOOOOO 
000137 

032700 
001004 

104413 
OOOOOO 
000137 

032701 
001004 

104414 
OOOOOO 
000137 
005037 

032777 

00140/ 
005227 
OOOOOO 
001371 



000100 011244 

011230 

011226 

000400 011216 

010000 

012700 
020000 

012700 
000400 

012700 
000400 



l$j 



2*i 



3$; 



012700 

013074 10$ : 

4*{ 
020000 011116 



11*: 



.SBTTl. 

TST 

BNE 

WRITE 

MOV 

CALL 

MCLEAR 

BIS 

SACS 

BIS 

SCOPE 

SIC 

BIS 

NOP 

NOP 

NOP 

SAVCIR 

MOV 

SAVSMR 

MOV 

CLR8 

BIC 

TGT12 

BIT 

BEQ 

ERROR 

TRAP 

.WORD 

JMP 

TST13 

BIT 

BNE 

ERROR 

TRAP 

.WORD 

JMP 

TST8 

BIT 

BNE 

ERROR 

TRAP 

.WORD 

JMP 

TST8 
BIT 

BNE 

ERROR 

TRAP 

.WORD 

JMP 

CLR 

TST13 

BIT 

BEQ 

INC (PC 

.WORD 

BNE 



TEST 



TEST 4 
MSGFLG 
L0PT3 
MT3S 

0MT3S, -CSP) 
% % .WRT 

OBITS. SCIR 

0BIT0.8CIR 

0BIT6.QSMR 



SCIR.RO 

QSMK.R1 
©CIR 

obits, scir 

RO 

♦BIT12.R0 

1$ 

7, 

7. 



TEST4 

Rl 

•BIU3.RI 

2$ 

10. 

10. 



TEST4 

RO 

06IT8.R0 

3$ 

11. 

11. 



TEST4 

Rl 

06IT8.R1 

10$ 

12. 

12. 



TEST4 

111 

8SMR 

0BIT13,8SMR 
5$ 
)♦ 

4$ 



SACS SIC SIAS ILLMSG CACS 
PRINTOUT OR NOT? 



START MESSAGE TEST 4 

»SAVE 0MT3S ONTO STACK 
\ INITIATE PRINTOUT 

EXECUTE MASTER CLEAR 

SET SACS BIT IN CIR 
SCOPE LOOP MARKER 
SEND INTERFACE CLEAR 
SENO INTERFACE CLEAR 
WAIT SOME MICRO SECONDS 



SAVE CIR CONTENT 
SAVE SMR CONTENT 
SAVE SMR CONTENT 
RESET "STATE CHANGE" BIT 

ILLEGAL MESSAGE ? 

IF EQ, NO 
ILLEGAL MESSAGE 

t ERROR 7. 

{ERROR COUNT 

SIAS SET ? 

IF NE, YES 
SIAS NOT SET 

j ERROR 10. 

s ERROR COUNT 

STATE CHANGE ? 

IF NE, YES 

NO STATE CHANGE TO SIAS 
jERROR 11. 
{ERROR COUNT 

CACS SET ? 

IF NE. YES 

CACS NOT SET BY SIAS 

j ERROR 12. 

j ERROR COUNT 



SIAS RESET ? 

IF EQ. YES 
WAIT A WHILE 



F6 



iistv mnm c szc s^im ^ -™- 8 * x6! ° 2 page "- 1 



SEQ 70 



350 013100 








ERROR 


13. ; 


SIAS NOT RESET 


013100 


104415 






TRAP 


13. 


, ERROR 13. 


013102 


000000 






.WORD 





t ERROR COUNT 


351 013104 


000137 


012700 




JMP 


TEST4 j 




352 013110 






5$: 


SAVCIR 






013110 


017700 


011070 




MOV 


QCIR.RO j 


SAVE CIR CONTENT 


353 013114 








SAVSMR 




SAVE SMR CONTENT 


013114 


017701 


011066 




MOV 


QSMR.R1 , 


SAVE SMR CONTENT 


354 013120 








TST8 


RO j 


STATE CHANGE ? 


013120 


032700 


000400 




BIT 


WIT8.R0 




355 013124 


001004 






BNE 


6$ i 


IF NE, YES 


356 013126 








ERROR 


14. j 


NO STATE CHANGE TO SIAS RESET 


013126 


104416 






TRAP 


14. 


j ERROR 14. 


013130 


000000 






.UORO 





{ERROR COUNT 


357 013132 


000137 


012700 




JMP 


TEST4 i 




358 013136 






6$j 


TST8 


Rl I 


CACS STILL SET ? 


013136 


032701 


000400 




BIT 


*BIT6.R1 




359 013142 


001004 






BNE 


7$ i 


IF NE. YES 


360 013144 








ERROR 


15. i 


CACS RESET WITH SIAS RESET 


013144 


104417 






TRAP 


15. 


;ERROR 15. 


013146 


000000 






.WORD 





j ERROR COUNT 


361 013150 


000137 


012700 




JMP 


TEST4 i 




362 013154 


104000 




7$i 


SCOPE 




SCOPE LOOP MARKER 


363 013156 








MCLEAR 






013156 


052777 


000040 011020 




BIS 


*BIT5,aCIR 


EXECUTE MASTER CLEAR 


364 013164 








SAVSMR 




SAVE NEW SMR CONTENT 


013164 


017701 


011016 




MOV 


8SMR.R1 \ 


SAVE SMR CONTENT 


365 013170 








TST8 


Rl 


CACS RESET ? 


013170 


032701 


000400 




BIT 


GAITS, Rl 




366 013174 


001404 






BEQ 


8$ 


IF EQ. YES 


367 013176 








ERROR 


16. 


CACS NOT RESET WITH MC 


013176 


104420 






TRAP 


16, 


t ERROR 16, 


013200 


oooooo 






.UORO 





i ERROR COLNT 


368 013202 


00017.7 


012700 




JMP 


TEST4 




369 013206 


104000 




8$; 


SCOPE 




SCOPE LOOP MARKER 


370 013210 








SIC 






013210 


052777 


000100 010770 




BIS 


0BIT6.8SMR 


SEND INTERFACE CLEAR 


371 013216 








SAVCIR 






013216 


017700 


010762 




MOV 


8CIR.R0 


tSAVE CIR CONTENT 


372 013222 








TST12 


RO 


j IS ' ILL. MESS* SET ? 


013222 


032700 


OlOOOO 




BIT 


WIT12.R0 




373 013226 


001004 






BNE 


9$ 


IF NE. tES 


374 013230 








ERROR 


17. 


|N0 ILL MESS TO SICS W/0 SACS 


013230 


104421 






TRAP 


17. 


I ERROR 17. 


013232 


OOOOOO 






.WORD 





jERROR COUNT 


375 013234 


000137 


012700 




JMP TEST4 




376 013240 






9$: 


LOOP 


-1.L0PT3 




013240 


005327 






DEC 


(PC)* 


i COUNT LOOPS 


013242 


177777 




64$* 


.WORD 


-1 




013244 


005737 


013242 




TST 


64$ 


iIS 64$ ZERO ? 


013<:50 


001401 






BEQ 


. *4 


I 


013252 


000621 






BR 


L0PT3 


t 


013254 


012737 


177777 013242 




MOV 


4-1,641 


j SETUP NEW LOOP COUNT 


377 013262 








TSTEND 


3 




013262 


005737 


011670 




TST 


MSGF'LG 


iPRINTOUT OR NOT? 


C13266 


001004 






BNE 


66$ 




013270 


012746 


022647 




MOV 


4MTE3.-CSP) 


jSAVE 4MTE3 ONTO STACK 



G6 



IECU-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 37-2 SEQ 71 

TEST 4 TEST SACS SIC SIAS ILLMSG CACS 

013274 004737 005654 CALL J..WRT i INITIATE PRINTOUT 

013300 000207 66$; RETURN j j RETURN TO CALLER 



II 



ill -A DIAGNOSTIC 
it 5 TEST INT ENB 



MACRO M1200 30-MAR-84 15:02 PAGE 36 



H6 



SEQ 72 



379 

380 013302 

381 013306 

382 013310 
013310 
013314 

383 013320 
013320 

384 013326 

385 013332 
366 013334 

013334 

387 013340 
013340 

388 013344 

389 013346 

390 013350 
013350 
013352 

391 013354 

392 013356 

393 013360 
013360 

394 013364 
013364 

395 013370 

396 013372 

397 013374 
013374 
013376 

398 013400 

399 013402 
013402 
013404 
013406 
013412 
013414 
013416 

400 013424 
013424 
013430 
013432 
013436 
013442 



005737 
001004 

012746 
004737 

052777 
013701 
104000 

052711 

032711 
001004 
011100 

104441 
000000 
000752 
104000 

042711 

032711 
C01404 
0U100 

104442 
000000 
000740 

005327 
177777 
005737 
001401 
000741 
01PV37 

005737 
001004 
012746 
004737 
000207 



011670 



022663 
005654 

000040 010656 
024204 



00010C 
000100 



TEST5} 



L0PT3A; 



1$ 



000100 
000100 



013404 

177777 013404 

011670 

022720 
005654 



2$: 
64$; 



66$; 



■SBTTL 

TST 

BNE 

WRITE 

MOV 

CALL 

MCLEAR 

BIS 

MOV 

SCOPE 

SET6 

BIS 

TST6 

BIT 

BNE 

MOV 

ERROR 

TRAP 

.WORD 

BR 

SCOPE 

CLR6 

BIC 

TST6 

BIT 

BEQ 

MOV 

ERROR 

TRAP 

.WORD 

BR 

LOOP 

DEC 

.WORD 

TST 

BEQ 

BR 

MOV 

TSTEND 

TST 

BNE 

MOV 

CALL 

RETURN; 



TEST 5 TEST 

MSGFLG 

L0PT3A 

MT3AS 

*MT3AS,-(SP) 

$..WRT 

0BIT5.BCIR 
CIR.R1 

9R1 

*6IT6,aRl 

SRI 

*6IT6,0R1 

II 

0R1.RO 

33, 

33. 



TEST5 

SRI 

*BIT6,S)R1 

9R1 

GBIT6.8R1 

2$ 

8R1.R0 

34. 

34. 



TEST5 

-1.L0PT3A 

(PC)» 

-1 

64$ 

. *4 

L0PT3A 

#1.64$ 

3A 

MSGFLG 

66$ 

*MTE3A f -(SP) 

$..WRT 



INT ENB 

I PRINTOUT 



OR NOT? 



, START MESSAGE TEST 5 

jSAVE 0MT3AS ONTO STACK 
j INITIATE PRINTOUT 

^MASTER CLEAR 

I EXECUTE MASTER CLEAR 

iGET CIR ADDRESS 

; SCOPE LOOP MARKER 
"■" TO SET INTERRUPT ENABLE 



jTRY 



SET 



iIS INT EN8L SET ? 

;IF NE» YES 

i SAV CIR 

I INTERRUPT EN8ALE NOT 

jERROR 33. 

i ERROR COUNT 

i SCOPE LOOP MARKER 

I TRY TO RESET INTERRUPT ENABLE 

lIS INT ENABLE RESET ? 

tIF EQ, YES 

»SAVE CIR 

j INTERRUPT ENABLE NOT RESET 

lERROR 34. 

j ERROR COUNT 
I 

; COUNT LOOPS 



5 



iIS 64$ ZERO ? 



J 

, SETUP NEW LOOP COUNT 
jRETURN TO CALLER 
» PRINTOUT OR NOT? 

jSAVE 0MTE3A ONTO STACK 
{INITIATE PRINTOUT 
jRETURN TO CALLER 



16 



IEC11 -A DIAGNOSTIC 
TEST 6 TEST INTERRUPT 



MACRO M1200 30 -MAR -84 
WITH STATE CHGE 



16; 02 PAGE 39 



SEQ 73 



402 
403 
404 
405 



406 



407 
408 

409 

410 
411 

412 
413 

414 
415 
416 
417 
418 



419 



420 
4?1 
422 



423 
424 

425 

426 

427 
428 

429 

4 30 

431 
4 32 
433 

4 34 
435 



013444 

013450 

013452 

013452 

013456 

013462 

013462 

013466 

013472 

013476 

013500 

013502 

013502 

013510 

013514 

013520 

013520 

013526 

013532 

013532 

013540 

013544 

013546 

013550 

013552 

013552 

013556 

013562 

013566 

013566 

013570 

013572 

013574 

013576 

013576 

013600 

013602 

013604 

013606 

013606 

013614 

013620 

013624 

013624 

013632 

013632 

013640 

013640 

013646 

013652 

013654 

013656 

013660 

013660 

013664 

013670 



005737 
001004 

012746 
004737 

012746 
012746 
012746 
104001 
104000 

052777 
012705 
012704 

052777 
105037 

052777 

005037 
005227 
000000 
001375 

017700 
017701 
017702 

104424 
000000 
000724 
103003 

104425 
000000 
000720 
104000 

052777 
012705 
012704 

052777 

052777 

052777 
005037 
005227 
000000 
001375 

017700 
017701 
017702 



011670 



022734 
005654 

024222 
021334 
000000 



000040 010474 

010000 

013574 

000100 010456 
177776 

000100 010446 
013546 



010426 
010424 
010424 



TEST6j 



10$: 



L0PT4; 



1$: 
2$; 



3*: 



4$; 



000040 010370 

000400 

013702 

000100 010352 

000001 010344 

000100 01034Q 
013654 



010320 
010316 
010316 



5$i 

6$t 



.SBTTL 

TST 

BNE 

WRITE 

MOV 

CALL 

SETVEC 

MOV 

MOV 

MOV 

EMT 

SCOPE 

MCLEAR 

BIS 

MOV 

MOV 

INTENB 

BIS 

CLRB 

SIC 

BIS 

CLR 

INC 

.WORD 

BNE 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

BR 

BCC 

ERROR 

TRAP 

.WORD 

BR 

SCOPE 

MCLEAR 

BIS 

MOV 

MOV 

INTEMB 

BIS 

SACS 

BIS 

SIC 

BIS 

CLR 

INC 

.WORD 

BNE 

SAVIEC 

MOV 

MOV 

MOV 



TEST 



I TEST 6 



TEST 6 

MSGFLG 

10$ 

MT4S 

0MT4S, -(SP) 

I..WRT 

•VECTOR ♦MECINT, 00 

•VECTOR, (SP) 

OIECINT.-(SP) 

00,-CSP) 

1 

j SCOPE 



INTERRUPT WITH STATE CHGE 
jPRINTOUT OR NOT? 



0BIT5,SCIR 
06IT12.R5 
03$. R4 

JBIT6.BCIR 
SOPS 

*eiT6,asMR 

2$ 

(PC)* 



1$ 

SCIR.RO 

QSMK.Rl 

SI0R.R2 

20. 

20. 



TEST6 

4$ 

21. 

21. 



TEST6 



*eiT5,S>CIR 

*eir8,R5 

07$, R4 

oeiT6.aciR 

oeiTO.SCIR 

06IT6,QSMR 

6$ 

(PC)* 



5$ 

QCIR.RO 
bJSM«,Rl 
SI0R*R2 



START MESSAGE 

j SAVE 0MT4S ONTO STACK 

{INITIATE PRINTOUT 

I SET VECTOR i 
j SAVE OVECTOR ONTO STACK 
l SAVE OIECINT ONTO STACK 
I SAVE 00 ONTO STACK 
j SETUP OVECTOR VECTOR 
LOOP MARKER 



*+V03E02** 



i EXECUTE MASTER CLEAR 
j SETUP INTERRUPT MASK 
» SETUP RETURN ADDRESS 

i ENABLE INTERRUPT IN IEC-11A 
l ENABLE INTERRUPTS 

j SEND INTERFACE CLEAR 

iWAIT FOR INTERRUPT 



I SAVE CIR CONTENT 
j SAVE SMR CONTENT 
i SAVE TOR CONTENT 
jNO INTERRUPT TO SIC 

jERROR 20. 

I ERROR COUNT 

j IF CC. INTERRUPT OK 
j ILLEGAL INTERRUPT 

, ERROR 21. 

; ERROR COUNT 

j SCOPE LOOP MARKER 

I EXECUTE MASTER CLEAR 
j SETUP INTERRUPT MASK 
j SETUP INTERRLPT RETL^N ADDRESS 

lENABLE INTERRUPT IN IEC-11A 

iSET SACS BIT IN CIR 

I SEND INTERFACE CLEAR 
j WAIT FOR INTERRUPT 



l SAVE ALL IEC -REGISTERS 

j SAVE CIR CONTENT 

j SAVE SMR CONTENT 

I SAVE XOR CONTENT 



J6 



IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:0? PAGE 39-1 
TEST 6 TEST INTERRUPT WITH STATE CHGE 



SEQ 74 



436 013674 






013674 


104426 




013676 


000000 




437 013700 


000661 




438 013702 


103003 




439 013704 






013704 


104427 




013706 


000000 




440 013710 


000655 




441 013712 






013712 


005327 




013714 


177777 




013716 


005737 


013714 


013722 


001401 




013724 


000665 




013726 


012737 


177777 


44£ 013734 






013734 


005737 


011670 


013740 


0C1004 




013742 


012746 


023013 


013746 


004737 


005654 


013752 


000207 





7$ 



8$: 
64$ 



013714 



66$: 



ERROR 
TRAP 
.WORD 
BR 
BCC 
ERROR 
TRAP 
.WORD 
BR 

LOOP 
DEC 
.WORD 
TST 
BEQ 
BR 
MOV 

TSTEND 
1ST 
BNE 
MOV 
CALL 
RETURN* 



22. 

22, 



TEST6 

8* 

23. 

23. 



TEST6 

-1.L0PT4 

(PC)* 

-1 

64 % 

. *4 

L0PT4 

ft-1,641 

4 

MSGELG 

66* 

0MTE4, -CSP) 

$.*WRT 



l NO INTERRUPT TO SIC AND SACS 
, ERROR 22. 
I ERROR COUNT 

l IF CC, INTERRUPT OK 
j ILLEGAL INTERRUPT 

jERROR 23. 

I ERROR COUNT 



{COUNT LOOPS 

jIS 64$ ZERO ? 
! 

j SETUP NEW LOOP COUNT 

j PRINTOUT OR NOT? 

iSAVE 0MTE4 ONTO STACK 
{INITIATE PRINTOUT 
RETURN TO CALLER 



* 



fistv iimm cH Gt ?^^R^f o SiT^°s58 R s- 84 i6i0? page 4 ° 



Kb 



SEQ 75 



444 
445 
446 
447 



448 

449 

450 
451 

452 
453 
454 

455 

456 

457 
458 

459 

460 
461 

462 

463 



464 
465 
466 

467 
468 
469 
470 
471 



472 



4 73 
4 74 

4 75 
4 76 



013754 

013760 

013762 

013762 

013766 

013772 

013772 

014000 

014000 

014006 

014010 

014010 

014016 

014022 

014024 

014024 

014030 

014030 

014034 

014034 

014036 

014040 

014042 

014042 

014050 

014050 

014056 

014060 

014060 

014064 

014064 

014070 

014070 

014072 

014074 

014076 

014102 

014102 

014110 

014U2 

014114 

014116 

014120 

014120 

014124 

014130 

014134 

014134 

014136 

014140 

014142 

014142 

014150 

014152 

014152 

014154 



005737 
001004 

012746 
004737 



011670 



023027 
005654 



052777 000040 010204 
000001 010176 



TEST7; 



L0PT5; 



052777 
104000 

052777 
105777 
100407 

017700 

017701 

104430 
000000 
000745 

042777 000400 010134 

010000 010126 



000200 010170 
010164 



010154 
010152 



032777 
001407 

017700 

017701 

104431 
00OOO0 
000727 
005037 

032777 
001014 
005227 
000000 
001371 

017700 
017701 
017702 

104432 
000000 
000705 

0327// 
001003 

104433 
000000 



010060 
010056 
010056 



5$; 



010120 
010116 

014114 

040000 010076 



It: 
10*; 



9$; 



000400 010034 



2$; 



.SBTTL 

TST 
BNE 
WRITE 
MOV 
CALL 
MCLEAR 
BIS 
SACS 
BIS 
SCOPE 
SRE 
BIS 
TSTB 
BMI 
SAVCIR 
MOV 
SAVSMR 
MOV 
ERROR 
TRAP 
.WORD 
BR 

CLR8 
BIC 
TST12 
BIT 
BEQ 
SAVCIR 
MOV 
SAVSMR 
MOV 
ERROR 
TRAP 
.WORD 
BR 
CLR 
TST14 
BIT 
BNE 
INC 
.WORD 
BNE 

SAVIEC 
MOV 
MOV 
MOV 
FRROR 
TRAP 
.WORD 
BR 

TST8 
BIT 
BNE 
ERROR 
TRAP 
.WORD 



TEST 7 TEST 

MSGFLG 

L0PT5 

MT5S 

0MT5S, -CSP) 
I. .WRT 

4BXT5.SCIR 

<rt*iT0,aciR 



OBIT/.SSMR 

SSMR 

5$ 

8CIR.R0 

8SMR,R1 

24. 

24. 



TEST7 

DCIR 

*eiT8,aciR 

5>CIR 

*8IT12,aCIR 

1$ 

8CIR.R0 

BSMR.fU 
25. 
25. 


TEST7 

9$ 

SSMR 

*6IT14,aSMR 

2* 

(PC)* 



10$ 

aCIR.RO 
QSMR.R1 
aiOR,R2 
26. 

26. 


TEST/ 

aciR 

OBITB.aCIR 

3$ 

27. 

27. 




STATE CHGE INTERRUPT WITH SRAS 
^PRINTOUT OP NOT? 

j START MESSAGE TEST 7 

I SAVE 0MT5S ONTO STACK 
j INITIATE PRINTOUT 

{MASTER CLEAR 

{EXECUTE MASTER CLEAR 

{SET CONTROLLER ACTIVE STATE 

jSET SACS BIT IN CIR 

I SCOPE LOOP MARKER 

} SEND REMOTE ENABLE 

tSRE SET ? 
j IE MI, YES 

I SAVE CIR CONTENT 

: SAVE SMR CONTENT 
{SRE NOT SET 

l ERROR 24. 

, ERROR COUNT 

j RESET STATE CHANGE 

j ILLEGAL MESSAGE ? 

j IE EQ, NO 

;5AVE CIR CONTENT 

j SAVE SMR CONTENT 
l' ILLEGAL MESSAGE' 

{ERROR 25. 

{ERROR COUNT 

{WAIT A SHORT ITME 
,SRAS SET ? 

;IF NE, YES 



{SAVE ALL IEC REGISTERS 
{SAVE CIR CONTENT 
{SAVE SMR CONTENT 
{SAVE IOR CONTENT 
jSRAS NOT SET 

lERPOR 26. 

{ERROR COUNT 

{STATE CHANGE ? 

{I* NE, 1ES 

{NO STATE CHANGE 

{ERROR 27. 
{ERROR COUNT 



1.6 



W 



p-/ fl mnm 



MACRO M1?00 30 -MAR -84 
CHGfe INTERRUPT WITH SRAS 



16;02 PAGE 40-1 



SEQ 76 



477 
478 

479 
480 
481 
482 

483 

484 
485 
486 



487 
488 

489 

490 
491 



492 
493 
494 

495 
496 
497 



498 
499 

500 
501 

502 
503 
504 
505 

506 

507 

508 
509 



510 
511 



014156 

014160 

014160 

014166 

014170 

014172 

01417-1 

014174 

014200 

014200 

014204 

014206 

014210 

014210 

014212 

014214 

014216 

014216 

014224 

014224 

014230 

014232 

014232 

014234 

014236 

014240 

014242 

014242 

014246 

014250 

014252 

014252 

014254 

014256 

014260 

014260 

014266 

014270 

014270 

014276 

014300 

014302 

014304 

014 304 

014310 

014310 

014314 

014314 

014320 

014322 

014322 

014324 

014326 

014330 

014330 

014332 

014334 



000200 010020 

010004 
010002 



000676 

042777 
000240 
000240 
000240 

017700 

017701 
105701 
100003 

104436 
000000 
000657 



042777 000400 007760 

032701 040000 
001403 

104437 
000000 
000646 
000300 



3* 



6$: 



4$; 



032700 
001004 
000300 

104440 
000000 
000636 

052777 
104000 

052777 
000240 
000240 
000240 

017700 

017701 

032 700 
001003 

104550 
000000 

000612 

005327 
177/7/ 
005737 



000400 



000040 007716 
000200 007710 

00 7674 

007672 
010000 



7$ 



014 332 



8$,- 
64$; 



BR 

CLR7 

BIC 

NOP 

NOP 

NOP 

SAVCIR 

MOV 

SAVSMR 

MOV 

TSTB 

BPL 

ERROR 

TRAP 

.WORD 

BR 

CLR8 

BIC 

TST14 

BIT 

BEQ 

ERROR 

TRAP 

.WORD 

BR 

SWAB 

TST8 

BIT 

BNE 

SWAB 

ERROR 

TRAP 

.WORD 

BR 

MCLEAR 

BIS 

SCOPE 

SRE 

BIS 

NOP 

NOP 

NOP 

SAVCIR 

MOV 

SAVSMR 

MOV 

TST12 

BIT 

BNE 

ERROR 

TRAP 

.WORD 

BR 

LOOP 

DEC 

.WORD 

TST 



TEST7 

SSMR 

frBIT7,aSMR 



SCIR.RO 

SSMR.R1 

Rl 

6$ 

30. 

30. 



TEST7 

SCIR 

*BIT8,SCIR 

Rl 

06IT14.R1 

4* 

31. 

31. 



TEST7 

RO 

RO 

*8IT8,R0 

/$ 

RO 

32. 

32, 



TEST7 

#BIT5,aCIR 



$tiIT7,aSMR 



BCIR.RO 

SSMR.R1 

RO 

4flITl2.R0 

8* 

104. 

104. 



TEST 7 

-1.L0PT5 

(PC)t 

-i 

64$ 



jRESET SRE 

j WAIT SOME MICRO SECONDS 

»SAVE CIR CONTENT 

I SAVE CIR CONTENT 

i SAVE SMR CONTENT 

j SAVE SMR CONTENT 

I SRE RESET ? 

j IF PL. YES 

j SRE NOT RESET 

jERROR 30, 
I ERROR COUNT 

I RESET STATE CHANGE 

jSRAS RESET ? 

»IF EQ, YES 

I SRAS NOT RESET 

jERROR 31. 

I ERROR COUNT 

i 

tSTATE CHANGE SET ? 

I IF NE, YES 

i REBUILD ORIGINAL CONTENT 

jNO STATE CHANGE 

; ERROR 32. 

i ERROR COUNT 

{MASTER CLEAR 
jEXECUTE MASTER CLEAR 
j SCOPE LOOP MARKER 
j SEND REMOTE ENABLE 

iWAIT SOME MICRO SECONDS 



jSAVE CIR CONTENT 
j SAVE CIR CONTENT 
I SAVE SMR CONTENT 
j SAVE SMR CONTENT 
lILLEG. MESSAGE ? 

j IF NE. YES 

}N0 ILLEG. MESSAGE 

j ERROR 104. 

i ERROR COUNT 



COUNT LOOPS 



J 



iIS 64$ ^ERU ? 



IEC11 A DIAGNOSTIC 
TEST 7 TEST STATE CHGE 



MACRO M12O0 30 -MAR -84 
INTERRUPT WITH SRAS 



M6 



16:02 PAGE 40-2 



SEQ 77 



014340 001401 

014342 000613 

014344 012737 177777 014332 
512 014352 

014352 005737 011670 

014356 001004 

014360 012746 023113 

014364 004737 005654 

014370 000207 



66$ 



BEQ 


. *4 


BR 


L0PT5 


MOV 


ft- 1,64$ 


PJTEND 


5 


1ST 


MSGFLG 


BNE 


66$ 


MOV 


ftMTE5,-(SP) 


CALL 


$. .WRT 


RETURN; 





j SETUP NEW LOOP COUNT 

^PRINTOUT OR NOT? 

jSAVE 0MTE5 ONTO STACK 
{INITIATE PRINTOUT 
iRETURN TO CALLER 



N6 



TEST 



1-A DIAGNOSTIC 


MACRO M1200 30 


-MAR -84 


16;02 PAGE 41 




8 - IOR DATA TEST 












514 








.S8TTL 


TEST 8 - IOR 


DATA TEST 


515 014372 


005737 


011670 


TEST8J 


TST 


MSGFLG 


, PRINTOUT OR NOT? 


516 014376 


001004 






BNE 


10$ 




517 014400 








WRITE 


MT5AS 


j START MESSAGE TEST 8 


014400 


012746 


023127 




MOV 


AMT5AS, -(SP) 


j SAVE 4MT5AS ONTO STACK 


014404 


004737 


005654 




CALL 


$, .WRT 


{INITIATE PRINTOUT 


518 014410 


104000 




10$: 


SCOPE 






519 014412 






L0PT5A; 


MCLEAR 




J 


014412 


052777 


000040 007564 




BIS 


06IT5.6JCIR 


j EXECUTE MASTER CLEAR 


520 014420 


013704 


024212 




MOV 


I0R.R4 


j GET IOR ADDRESS 


521 014424 


005003 






CLR 


R3 


I PREPARE DATA 


522 014426 


110314 




1$: 


M0V8 


R3,6)R4 


j WRITE PATTERN INTO IOR 


523 014430 


01)402 






MOV 


0R4.R2 


»READ BACK PATTERN FROM IUR 


524 014432 


020302 






CMP 


R3.R2 


{PATTERN EQUAL ? 


525 014434 


001403 






BEQ 


2$ 


{IF EQ, YES 


526 014436 








ERROR 


47, 


{DATA CHECK IN IOR 


014436 


104457 






TRAP 


47. 


jERROR 47, 


014440 


000000 






.WORD 





{ERROR COUNT 


527 014442 


000753 






BR 


TEST8 


{RESTART TEST 


528 014444 


005203 




2$: 


INC 


R3 


{BUILD NEXT PATTERN 


529 014446 


020327 


000400 




CMP 


R3,*400 


{ALL DONE ? 


530 014452 


001365 






BNE 


1$ 


lIF NE, NO 


531 014454 








LOOP 


1000. .L0PT5A 




014454 


005327 






OEC 


(PC)* 


{COUNT LOOPS 


014456 


001750 




64$ j 


.UORD 


1000. 


i 


014460 


005737 


014456 




TST 


64$ 


{IS 64$ ZERO ? 


014464 


001401 






BEQ 


. *4 


j 


014466 


000751 






BR 


L0PT5A 


1 


014470 


012737 


001750 014456 




MOV 


41000. ,64$ 


{SETUP NEW LOOP COUNT 


532 014476 








TSTEND 


5A 


, RE TURN TO MAINPROGRAM 


014476 


005737 


011670 




TST 


MSGFLG 


{PRINTOUT OR NOT? 


014502 


001004 






BNE 


66$ 




014504 


012746 


023165 




MOV 


0MTE5A, -(SP) 


{SAVE 0MTE5A ONTO STACK 


014510 


004737 


005654 




CALL 


$. .WRT 


{INITIATE PRINTOUT 


014514 


000207 




66$ s 


RETURN; 




{RETURN TO CALLER 



SEQ 78 



B/ 



IF.C11 A DIAGNOSTIC 


MACRO M1200 3( 


TEST 9 TFST STATE CH15E 


INTERRUPT WITH 


534 






535 014516 






014516 


012746 


024222 


014522 


012746 


021334 


014526 


012746 


000000 


014532 


.104001 




536 014534 


005737 


011670 


537 014540 


001004 




538 014542 






014542 


012746 


023201 


014546 


004737 


005654 


539 014552 






014552 


05277? 


000040 007424 


540 014560 






014560 


052777 


000001 007416 


541 014566 






014566 


052777 


000100 007412 


542 014574 


013700 


024204 


543 014600 






014600 


032710 


000400 


544 014604 


001775 




545 014606 


104000 




546 014610 






014610 


042710 


000400 


547 014614 






014614 


032710 


000400 


548 014620 


001775 




549 014622 






014622 


042710 


000400 


550 014626 






014626 


0527 7 7 


000004 007352 


551 014634 


005037 


014652 


552 014640 






014640 


032777 


001000 007340 


553 014646 


001012 




554 014650 


005227 




555 014652 


000000 




556 014654 


ooi3a 




557 014656 






014656 


017700 


007322 


558 014662 






014662 


017701 


007320 


559 014666 






014666 


10444 3 




014670 


000000 




560 014672 


000711 




561 014674 






014674 


032710 


000400 


562 014700 


001007 




563 014702 






014702 


017700 


007276 


564 014706 






014706 


017701 


007374 


565 014712 






014712 


104444 




014714 


000000 




566 0X4716 


000677 





> -MAR 84 
GTS ANO 



TEST9j 



SIC 



>2 PACK 42 



SEQ 79 



L0PT6: 



II: 



2$: 



lit 



4$j 



.SBTTL 

SETVEC 

MOV 

MOV 

MOV 

EMT 

TST 

BNE 

WRITE 

MOV 

CALL 

MCLEAR 

BIS 

SACS 

BIS 

SIC 

BIS 

MOV 

TST8 

BIT 

BEQ 

SCOPE 

CLR8 

BIC 

TST8 

BIT 

BEQ 

CLR8 

BIC 

GTS 

BIS 

CLR 

TST9 

BIT 

BNE 

INC 

.WORD 

BNE 

SAVCIR 

MOV 

SAVSMR 

MOV 

ERROR 

TRAP 

.WORD 

BR 

TST8 

BIT 

BNE 

SAVCIR 

MOV 

SAVSMR 

MOV 

ERROR 

TRAP 

.WORD 

BR 



TEST 9 TEST 

OVECTOR.OIEC 

•VECTOR. -CSP 

OIECINT, .(SP 

•0, -(SP) 

1 

MSGKLG 

L0PT5 

MT6S 

•MT6S, -(SP) 

I. .WRT 

06IT5.OCIR 

OBITO.OCIR 

#tiIT6,QSMR 

CIR.RO 

ERO 

♦BITe.QRO 

1$ 

6R0 

•BIT8.SR0 

ORO 

*eiT8,SR0 

. -4 

8R0 

•BIT0.8R0 

♦6IT2.QSMR 

31 

8SMR 

♦eiT9,asMR 

4$ 

(PC)* 



2% 

OCIR.RO 

BSMR.RJ, 

35. 

35. 



TF.ST9 

9R0 

♦BIT4.SR0 

51 

9CIR.R0 

SSMR.R1 

36. 

56. 



TESTS) 



STATE 
INT ,00 
) 
) 



CHGE INTERRUPT WITH GTS ANO SIC 

I SET VECTOR i ♦♦V03E02** 

I SAVE OVECTOR ONTO STACK 
,SAVE flECINT ONTO STACK 
I SAVE *C ONTO STACK 
iSETUP •VECTOR VECTOR 
iPRINfOUT OR NOT? 



I START MESSAGE TEST 9 

I SAVE *MT6S ONTO STACK 
iINITIATE PRINTOUT 

jMASTER CLEAR 

lEXECUTE MASTER CLEAR 

>SET CONTROLER ACTIVE STATE 

iSET SACS BIT IN CIR 

I SEND INTERFACE CLEAR 

I SEND INTERFACE CLEAR 

iGET CIR ADDRESS 

iWAIT FOR STATE CHANGE 

iPROOUCED BY SIAS 
j SCOPE LOOP MARKER 
iRESET STATE CHANGE 



IWAIT FOR SIAS ENO 



iRESET STATE CHANGE 

jGO TO STANO BY STATE 
jGC TO STANO BY 
I WAIT FOR CSBS 

I 

i 
» 
i 

I SAVE CIR CONTENT 
I SAVE CIR CONTENT 
iSAVE SMR CONTENT 
I SAVE SMR CONTENT 
i NO CSBS 

I ERROR 35, 
i ERROR COIWT 
jRESTART TEST 
jDID CSBS BRING 



l**V0LF01** 

I**V01E01** 
l**V01E01«* 



STATE CHANGE ? 



I IF NE, YES 

iSAVE CIR CONTENT 
iSAVF CIR 
I SAVE SMR 

I SAVE SMR 
I NO STATE 



CONTENT 

CONTENT 

CONTENT 

CHANGE TO CSBS 
, ERROR 36. 
I ERROR COUNT 
^RESTART TEST 



C7 



IECU-A DIAGNOSTIC 
TEST 9 TEST STATE 



MACRO M1200 30-MAR-84 16;02 PAGE 42-1 
CHGE INTERRUPT WITH GTS AND SIC 



SEQ 80 



567 014720 






5$; CLR8 


SRO 


014720 


042710 


OOOOOO 


BIC 


0BIT8.OR0 


568 014724 


104000 




SCOPE 




569 014 726 






GTS 




014726 


052777 


000004 007252 


BIS 


0BIT2.SSMR 


570 014734 


005037 


014750 


CLR 


71 


571 014740 






6$! TST12 


SRO 


014740 


032710 


010000 


BIT 


*6IT12,aR0 


572 014744 


001012 




BNE 


8$ 


573 014746 


005^27 




INC 


(PC)* 


574 014750 


000000 




7tj .UORD 





575 0147S," 


001372 




BNE 


6* 


576 014^54 






SAVCIR 




0.14 V54 


017700 


007224 


MOV 


SCIR.RO 


577 014760 






SAVSMR 




014760 


017701 


007222 


MOV 


SSMR.R1 


5/tf 014764 






ERROR 


37. 


014764 


104445 




TRAP 


37. 


014 766 


000000 




.WORD 





579 014770 


000652 




BR 


TEST9 


580 014772 


005200 




8$; INC 


RO 


501 014774 


104000 




SCOPE 




502 014 776 


105010 




CLRB 


SRO 


583 015000 






TCA 




015000 


052 777 


000002 007200 


BIS 


oaiTl.SSMR 


5»4 015006 


005037 


015022 


CLR 


10$ 


585 015012 


122710 


000001 


9J: CMPB 


•1, SRO 


586 015Q16 


001413 




BEQ 


11$ 


587 015020 


00522 7 




INC 


(PC)* 


588 015022 


oooooo 




101 j .WORD 





589 015024 


001372 




BNE 


9$ 


590 015026 






SAVCIR 




015026 


017700 


007152 


MOV 


SCIR.RO 


59). 015032 






SAVSMR 




015032 


017701 


007150 


MOV 


SSMR.R1 


592 015036 






ERROR 


40. 


015036 


104450 




TRAP 


40, 


015040 


OOOOOO 




.WORD 





593 015042 


000137 


014516 


JMP TEST9 


594 015046 


013701 


024206 


ili: MOV 


SMR.R1 


595 015052 


005201 




INC 


Rl 


596 015054 


122711 


000001 


CMPB 


•1.SR1 


597 015060 


001410 




BEQ 


12$ 


596 015062 






SAVCIR 




015062 


017700 


007U6 


MOV 


SCIR.RO 


59<* 015066 






SAVSMR 




01T066 


017701 


007114 


MOV 


SSMR.R1 


600 0150 72 






ERROR 


41. 


015072 


104451 




TRAP 


41. 


015074 


OOOOOO 




.WORD 





601 015076 


000137 


014516 


JrtP 


TEST9 


6<>2 015102 


104000 




12$} SCOPE 




603 015104 


105010 




CLRB 


SRO 


604 015106 


012705 


100000 


MOV 


♦eiU5,R5 


005 015112 


012704 


015200 


MOV 


015$, R4 


60b 015116 






INTEN0 




015116 


052777 


0001QO Q07Q60 


BIS 


0BIT6.QC1R 



jRESET STATE CHANGE 

j SCOPE LOOP MARKER 

I FORCE ILLEGAL MESSAGE 

iGO TO STANO BY 

I WAIT FOR ILLEGAL MESSAGE 

I 



I SAVE CIR CONTENT 
tSAVE CIR CONTENT 
j SAVE SMR CONTENT 
I SAVE SMR CONTENT 
I NO ILLEGAL MESSAGE 

lERROR 37. 

I ERROR COUNT 
iRESTART TEST9 
jPOINT TO CIR HIGH BYTE 
I SCOPE LOOP MARKER 
jRESET INTERRUPT CONDITIONS 
jTAKE CONTROL ASYNC 
»TAKE CONTROL ASYNC 
iWAIT FOR CACS 



**VO2E0O* 



I SAVE 
i SAVE 
>SAVE 
I SAVE 
I TCA 



CIR 
CIR 
SMR 
SMR 
DOES 



SMR 



CONTENT 

CONTENT 

CONTENT 

CONTENT 

NOT PROOUCE STATE CHANGE 
I ERROR 40. 
, ERROR COUNT 
jRESTART TEST9 
»GET AODRESS OF SMR 
i ADDRESS HIGH BYTE OF 
I CACS SET AGAIN ? 
I IF EQ, YES 
i SAVE CIR CONTENT 
I SAVE CIR CONTENT 
jSAVE SMR CONTENT 
tSAVE SMR CONTENT 

I TCA WITH CSBS DOES NOT PRODUCE CACS 
, ERROR 41, 
, ERROR COUNT 
iRESTART TEST 9 
I SCOPE LOOP MARKER 
jRESET INTERRUPT CONDITIONS 
l SETUP INTERRUPT MASK 
I SETUP INTERRUPT RETURN ADDRESS 
lENABLfc IEC INTERRUPT 
lENABLE INTERRUPT IN IECUA 



D7 



i 9 A mmm chue 


mM»WllMmM ife 02 PAGE 4i? ' 2 




607 015124 


105037 


177776 




CLRB 


B*PS 


l ALLOW SYSTEM INTERRUPTS 


606 015150 








SAVCIR 




tSAVE CIR CONTEN, 


015130 


017700 


007050 




MOV 


SCIR.RO 


» SAVE CIR CONTENT 


609 015154 


113777 


024216 


007050 


MOVB 


TALKER t BIOR 


I ADDRESS TALKER • 


610 015142 


005037 


015150 




CLR 


14$ 


iWAIT FOR INTERRUPT 


611 015146 


005227 




13$: 


INC 


(PC)* 




612 015150 


000000 




14$s 


.WORD 







615 015152 


001375 






BNE 


13$ 




614 015154 








SAVIOR 




iSAVE IOR CONTENT 


015154 


017702 


007032 




MOV 


QI0R,R2 


j SAVE IOR CONTENT 


615 015160 








SAVCIR 




» SAVE CIR CONTENT 


015160 


017700 


007020 




MOV 


QCIR.RO 


iSAVE CIR CONTENT 


616 015164 








SAVSMR 




1 SAVE SMR CONTENT 


015164 


017701 


007016 




MOV 


QSMR,R1 


j SAVE SMR CONTENT 


617 015170 








ERROR 


42. 


|N0 INTERRUPT TO TALKER ADDRESSING 


015)70 


104452 






TRAP 


42. 


1 ERROR 42, 


015172 


000000 






.WORD 





I ERROR COUNT 


616 015174 


000137 


014516 




JMP 


TEST9 


iRESTART TEST9 


619 015200 


103004 




15$ J 


BCC 


16$ 


i IF CC, INTERRUPT OK 


620 015202 








ERROR 


43. 


1 ILLEGAL INTERRUPT 


015202 


104453 






TRAP 


43. 


lERROR 43. 


015204 


000000 






.UORD 





I ERROR COUNT 


621 015206 


000137 


014516 




JMP TEST9 


^RESTART TEST 9 


622 015212 






16$: 


GTS 




iGOTO STANOBY STATE 


015212 


052777 


000004 


006766 


BIS 


*eiT2 t asMR 


jGO TO STAND BY 


625 01^220 


005037 


015234 




CLR 


18$ 


» WAIT FOR CSBS AND TACS 


624 015224 


122711 


000012 


17$: 


CMPB 


*12,SR1 




625 015230 


001415 






BEQ 


19$ 




626 015232 


005227 






INC 


(PC)* 




627 015?34 


000000 




18$: 


.UORD 







628 015236 


001372 






BNE 


17$ 




629 015240 








SAVCIR 




iSAVE CIR CONTENT 


015240 


017700 


006740 




MOV 


0CIR.RO 


j SAVE CIR CONTENT 


630 015244 








SAVSMR 




i SAVE SMR CONTENT 


015244 


017701 


006736 




MOV 


QSMR.R1 


iSAVE SMR CONTENT 


631 015250 








SAVIOR 




1 SAVE IOR CONTENT 


015250 


017702 


006736 




MOV 


8I0R.R2 


iSAVE IOR CONTENT 


632 015254 








ERROR 


44, 


|N0 CSBS ANO TACS 


015254 


104454 






TRAP 


44. 


j ERROR 44. 


015256 


000000 






.WORD 





I ERROR COUNT 


633 015260 


000137 


014516 




JMP 


TEST9 


iRESTART TEST9 


634 015264 






19$: 


TSUI 


OCIR 


j IS NO LAC SET ? 


015264 


032777 


004000 


006712 


BIT 


•BITll.SCIR 




635 015272 


001012 






BNE 


20$ 


j IF NE* YES 


636 015274 








SAVCIR 




iSAVE CIR CONTENT 


015274 


017700 


006704 




MOV 


aCIR.RO 


iSAVE CIR CONTENT 


637 015300 








SAVSMR 




iSAVE SMR CONTENT 


015300 


017701 


006702 




MOV 


aSMR.Rl 


iSAVE SMR CONTENT 


636 015304 








SAVIOR 




j SAVE IOR CONTENT 


015304 


017702 


006702 




MOV 


8I0R.R2 


iSAVE IOR CONTENT 


639 015510 








ERROR 


45. 


l"NO LAC" NOT SET 


015310 


104455 






TRAP 


45. 


lERROR 45. 


015312 


oooooo 






.WORD 





i ERROR COUNT 


640 015314 


000137 


014516 




JMP 


TEST9 


iRESTART SUBTEST 


641 015320 






20$: 


MCLEAR 




jRESET IEC-UA 


015320 


052777 


000040 


006656 


BIS 


0BIT5.SCIR 


j EXECUTE MASTER CLEAR 


642 Q15326 








LOOP 


-1.L0PT6 





SEQ 81 



E7 



IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-8' 
TEST 9 TEST STATE CHGE INTERRUPT WITH GTS AND SIC 



0155J6 

015330 
01533? 
015336 
015340 
015344 

643 015352 
015352 
015356 

644 015360 
015360 
015364 
015366 
015372 
015376 



005327 

177777 64$; 

005737 015330 

001402 

000137 014552 

012737 J.77777 015330 

012746 024222 
104002 

005737 011670 

001004 

012746 023274 

004737 005654 

000207 66$: 



6:02 PAGE 42-3 
IC 






DEC 


(PC)* 




» COUNT LOOPS 


.WORD 


-1 




1 


TST 


64$ 




tIS 64$ ZERO ? 


BEQ 


.♦6 




\ 


JMP 


L0PT6 




t 


MOV 


#-1,64$ 




\ SETUP NEW LOOP COUNT 


REMVEC 


^VECTOR 




{REMOVE VECTOR i **V03E02** 


MOV 


OVECTOR, 


-(SP) 


j SAVE 0VECTOR ONTO STACK 


EMT 


2 




t RESET OVECTOR VECTOR 


TSTEND 


6 




lEND OF SUBTEST 


TST 


MSGFLG 




j PRINTOUT OR NOT? 


BNE 


66$ 






MOV 


0WE6.-CSP) 


j SAVE 0MTE6 ONTO STACK 


CALL 


$, ,WRT 




{INITIATE PRINTOUT 


RETURN; 






1 RE TURN TO CALLER 



SEQ 82 



c 



JfCU-A DIAGNOSTIC % MACRO M120Q 30-MAR-84 
TEST 10 TEST DATA TRANSFER WITH INTERRUPT 



7 



16 ;02 PAGE 43 



SEQ 83 



646 








647 015400 








015400 


012746 


024222 




015404 


012746 


021334 




015410 


012746 


000000 




015414 


104001 






648 015416 


005737 


011670 




649 015422 


001004 






650 015424 








015424 


012746 


023310 




015430 


004 737 


005654 




651 015434 








015434 


052777 


000040 


006542 


652 015442 








015442 


052777 


000001 


006534 


653 015450 








015450 


052777 


000100 


006530 


654 015456 








015456 


032777 


000400 


006520 


655 015464 


001774 






656 015466 








015466 


042777 


000400 


006510 


657 015474 








015474 


032777 


000400 


006502 


658 015502 


001774 






659 015504 








015504 


042777 


000400 


006472 


660 015512 








015512 


052777 


000004 


006466 


661 015520 


104000 






662 015522 








015522 


032777 


001000 


006456 


663 015530 


001774 






664 015532 








015532 


052777 


000001 


006446 


665 015540 


005037 


015556 




666 015544 








015544 


032777 


010000 


006432 


667 015552 


001013 






668 015554 


005227 






669 015556 


000000 






670 015560 


001371 






671 015562 








015562 


017700 


006416 




672 015566 








015566 


017701 


006414 




673 015572 








015572 


104456 






015574 


000000 






674 015576 


000137 


015400 




675 015602 


042777 


177400 


006374 


676 015610 








015610 


052777 


000002 


006370 


677 015616 








015616 


0327/7 


000400 


006360 


678 015624 


001774 






679 015626 









TEST10: 



L0PT7} 



13$ 



1$ 



2$ 



3$ 



4$ 



5* 



6$ 



.SBTTL 

SETVEC 

MOV 

MOV 

MOV 

EMT 

TST 

BNE 

WRITE 

MOV 

CALL 

MCLEAR 

BIS 

SACS 

BIS 

SIC 

BIS 

TST8 

BIT 

BEQ 

CLR8 

BIC 

TST8 

BIT 

BEQ 

CLR8 

BIC 

GTS 

BIS 

SCOPE 

TST9 

BIT 

BEQ 

TCS 

BIS 

CLR 

TST12 

BIT 

ONE 

INC 

.WORD 

BNE 

SAVCIR 

MOV 

SAVSMR 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

BIC 

TCA 

BIS 

TST8 

BIT 

BEQ 

TST8 



TEST 10 TEST DATA TRANSFER 

^VECTOR, OIECINT, 00 

OVECTOR.-CSP) 

OIECINT.-CSP) 

00,-CSP) 



MSGFLG 
L0PT7 
MT7S 

0MT7S.-CSP) 
$, .WRT 

*6IT5,aCIR 

06ITO.SCIR 

*fiIT6,aSMR 
SCIR 

*BIT8,SCIR 
13$ 

scir 

*8ITe,0CIR 

SCIR 

*eiT8,0CIR 

.-6 

SCIR 

*8IT8,QCIR 

$eiT2,9SMR 

SSMR 

06IT9.8SMR 

1$ 

OBITO.SSMR 

3$ 

SCIR 

06IT12.SCIR 

4$ 

(PC)* 



2$ 

SCIR.RO 

8SMR.R1 

46. 

46. 



TEST 10 

0177400, SCIR 

oeiTl.SSMR 
SCIR 

*eiT8,aciR 

5$ 
SSMR 



WITH INTERRUPT 

j SET VECTOR i 

(SAVE ^VECTOR ONTO STACK 
{SAVE 0IECINT ONTO STACK 
{SAVE *0 ONTO STACK 
j SETUP ^VECTOR VECTOR 
I PRINTOUT OR NOT? 



+*V03E02** 



I START MESSAGE TEST 10 

I SAVE <*1T7S ONTO STACK 
» INITIATE PRINTOUT 

{MASTER CLEAR 

i EXECUTE MASTER CLEAR 

iSET CONTROLLER ACTIVE STATE 

{SET SACS BIT IN CIR 

{SEND INTERFACE CLEAR 

I SEND INTERFACE CLEAR 

l WAIT FOR STATE CHANGE 

, RESET INTERRUPT CONDITIONS 
{WAIT FOR SIAS END 



{RESET STATE CHANGE 

,G0 TO STANDBY STATE 
{GO TO STAND BY 
iSET SCOPE LOOP MARKER 
,WAIT FOR CSBS 

ItAKE CONTROL SYNCR. 



{WAIT FOR ILLEGAL MESSAGE 



{♦♦V01E01** 

j**V01E01** 
}**V01E01+* 



{SAVE 
{SAVE 
{SAVE 
{SAVE 



CIR 
CIR 
SMR 
SMR 



CONTENT 
CONTENT 
CONTENT 
CONTENT 
{NO ILLEGAL MESSAGE 
{ERROR 46. 
{ERROR COUNT 
{RESTART SUBTEST 
{RESET INTERRUPT CONDITIONS 
{TAKE CONTROL ASYNCR, 
CONTROL ASYNC 
FOR STATE CHANGE 



{TAKE 
{WAIT 



J 



iCACS SET ? 



G7 



l i8 9l8^SH c TRANSFi8 c B8TH l f8?ERS8pV AR - 84 
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015626 


032777 


000400 


006352 




BIT 


06IT8.QSMR 




680 015634 


001774 








BEQ 


6$ 


j IF EQ, NO 


681 015636 


104000 








SCOPE 




tSET SCOPE LOOP MARKER 


682 015640 


042777 


177400 


006336 




BIC 


0177400, SCIR 


iRESET INTERRUPT BIT- 


633 015646 


012705 


100000 






MOV 


0BIU5,R5 


I SETUP INTERRUPT MASK 


684 015652 


012704 


015740 






MOV 


09$, R4 


I SETUP INTERRUPT RETURN ADDRESS 


685 0V5656 










SAVCIR 




j SAVE CIR CONTENT 


015656 


017700 


006322 






MOV 


SCIR.RO 


{SAVE CIR CONTENT 


686 015662 










INTENB 




{ENABLE IEC-INTERRUPT 


015662 


052777 


000100 


006314 




BIS 


06IT6,SCIR 


{ENABLE INTERRUPT IN IEC-11A 


687 015670 


105037 


177776 






CLRB 


SOPS 


j ENABLE SYSTEM INTERRUPT 


688 015674 


113777 


024220 


006310 




MOVB 


LISTNR.SIOR 


{SEND LISTENER ADDRESS 


689 015702 


005037 


015710 






CLR 


8$ 




690 015706 


005227 






7$: 


INC 


CPO* 


{WAIT FOR I iTERRUPT 


691 015710 


000000 






8$: 


.WORD 







692 015712 


001375 








BNE 


7$ 




693 015714 










SAVCIR 




{SAVE CIR CONTENT 


015714 


017700 


006264 






MOV 


SCIR,RO 


{SAVE CIR CONTENT 


694 015720 










SAVSMR 




{SAVE SMR CONTENT 


015720 


017701 


006262 






MOV 


8SMR.R1 


{SAVE SMR CONTENT 


695 015724 










SAVIOR 




{SAVE IOR CONTENT 


015724 


017702 


006262 






MOV 


8I0R,R2 


{SAVE IOR CONTENT 


696 015730 










ERROR 


50. 


{NO INTERRUPT TO LISTENER ADDRESSING 


015730 


104462 








TRAP 


50. 


{ERROR 50. 


015732 


000000 








.WORD 





{ERROR COUNT 


697 015734 


000137 


015400 






JMP 


TEST10 


{RESTART SUBTEST 


698 015740 


103004 






9$: 


BCC 


10$ 


{IF CC, INTERRUPT OK 


699 015742 










ERROR 


51. 


{ILLEGAL INTERRUPT 


015742 


104463 








TRAP 


51, 


{ERROR 51. 


015744 


000000 








.WORD 





{ERROR COUNT 


700 015746 


000137 


015400 






JMP 


TEST10 


{RESTART SUBTEST 


701 015752 


104000 






10$: 


SCOPE 




{SET SCOPE LOOP MARKER 


702 015754 


042777 


177400 


006222 




BIC 


0177400. 8CIR 


{CLEAR INTERRUPT BITS 


703 015762 


012705 


100000 






MOV 


06IT15.R5 


{SET INTERRUPT MASK 


704 015766 


012704 


016054 






MOV 


014$,R4 


{SETLP INTERRUPT RETURN 


705 015772 










SAVCIR 




{SAVE CIR CONTENT 


015772 


017700 


006206 






MOV 


8CIR.R0 


{SAVE CIR CONTENT 


706 015776 










INTENB 




{ENABLE IEC INTERRUPT 


015776 


052777 


000100 


006200 




BIS 


0BIT6.SCIR 


{ENABLE INTERRUPT IN IEC-UA 


707 016004 


105037 


177776 






CLRB 


SOPS 


lENABLE SYSTEM INTERRUPTS 


708 016010 


113777 


024216 


006174 




MOVB 


TALKER, SIOR 


{ADDRESS TALKER AGAIN 


709 016016 


005037 


016024 






CLR 


12$ 


{WAIT FOR INTERRUPT 


710 016022 


005227 






111: 


INC 


(PC)* 




711 016024 


OOOOOO 






12$: 


.WORD 







712 016026 


001375 








BNE 


11$ 




713 016030 










SAVCIR 




{SAVE CIR CONTENT 


016030 


017700 


006150 






MOV 


8CIR.R0 


{SAVE CIR CONTENT 


714 016034 










SAVSMR 




;SAVE SMR CONTENT 


016034 


017701 


006146 






MOV 


SSMR.R1 


{SAVE SMR CONTENT 


715 016040 










SAVIOR 




{SAVE IOR CONTENT 


016040 


017702 


006146 






MOV 


SI0R.R2 


{SAVE IOR CONTENT 


716 016044 










ERROR 


53. 


{NO INTERRUPT TO TALKER ADDRESSING 


016044 


104465 








TRAP 


53, 


{ERROR 53. 


016046 


OOOOOO 








.WORD 





{ERROR COUNT 


7i7 016050 


000137 


015400 






JMP 


TEST10 


{RESTART SUBTEST 


718 016054 








14$: 


GTS 




{GOTO STANDBY STATE 


016054 


052777 


000004 


006124 




BIS 


0BIT2,8SMR 


{GO TO STAND BY 



SEQ 84 



H7 



^O^^B^^transfOTStR^Ver^p^- 84 
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719 016062 








15$; 


TST9 


SSMR 


iWAIT FOR CSBS 


016062 


032777 


001000 


006116 




BIT 


*8IT9,QSMR 




720 C 16070 


001774 








BEQ 


15$ 




721 016072 










TST12 


QSMR 


I LACS SET ? 


016072 


032777 


010000 


006106 




BIT 


08IT12.SSMR 




722 016100 


001012 








BNE 


16* 


j IF EQ, NO 


723 016102 










SAVCIR 




j SAVE CIR CONTENT 


016102 


017700 


006076 






MOV 


aCIR.RO 


{SAVE CIR CONTENT 


724 016106 










SAVSMR 




jSAVE SMR CONTENT 


016106 


017701 


006074 






MOV 


8SMR.R1 


{SAVE SMR CONTENT 


725 016112 










SAVIOR 




jSAVE IOR CONTENT 


016112 


017702 


006074 






MOV 


SI0R.R2 


j SAVE IOR CONTENT 


726 016116 










ERROR 


52. 


|N0 LACS 


016116 


104464 








TRAP 


52. 


I ERROR 52. 


016120 


000000 








.WORD 





j ERROR COUNT 


727 016122 


000137 


015400 






JMP 


TEST10 


{RESTART SUBTEST 


728 016126 


112777 


177777 


006056 


, 16*: 


MOVB 


♦-1.SI0R 


{SEND A DATA BYTE 


729 016134 








17*2 


TST15 


QCIR 


{DATA ACCEPTED ? 


016134 


032777 


100000 


006042 




BIT 


*BIT15,aCIR 




730 016142 


001774 








BEQ 


17$ 


lIF EQ, WAIT 


731 016144 










CLR15 


BCIR 


iRESET DATA ACCEPTED 


016144 


042777 


100000 


006032 




BIC 


0B1T15.SCIR 




732 016152 










CLR8 


SCIR 


j RESET STATE CHANGE 


016152 


042777 


000400 


006024 




BIC 


*BIT8,8CIR 




733 016160 


105377 


006026 






DECB 


aiOR 


iSENO NEXT OATA BYTE ;**V01E02** 


754 016164 


005227 






16*: 


INC 


(PC)* 


j WAIT A SHORT TIME 


735 016166 


000000 








.WORD 







736 016170 


001375 








BNE 


18* 




737 016172 










TST15 


WCIR 


j DATA ACCEPTED ? 


016172 


032777 


100000 


006004 




BIT 


0BIT15.BCIR 




738 016200 


001412 








BEQ 


19* 


l IF EQ, NO 


739 016202 










SAVCIR 




j SAVE CIR CONTENT 


016202 


017700 


005776 






MOV 


3CIR.R0 


i SAVE CIR CONTENT 


740 016206 










SAVSMR 




jSAVE SMR CONTENT 


016206 


017701 


005774 






MOV 


8SMR,Rl 


I SAVE SMR CONTENT 


741 016212 










SAVIOR 




iSAVE IOR CONTENT 


016212 


017702 


005774 






MOV 


8I0R,R2 


j SAVE IOR CONTENT 


742 016216 










ERROR 


54. 


{DATA ACCEPTED TO SECOND DATA BYTE 


016216 


104466 








TRAP 


54. 


j ERROR 54. 


016220 


000000 








.WORD 





{ERROR COUNT 


743 016222 


000137 


015400 






JMP 


TESUO 


{RESTART SUBTEST 


744 016226 








19$: 


SAVIOR 




iGET IOR CONTENT 


016226 


017702 


005760 






MOV 


qJI0R,R2 


j SAVE IOR CONTENT 


745 016232 


000302 








SWAB 


R2 




746 016234 


120227 


000377 






CMPB 


R2.0377 


iDATA OK ? 


74 7 016240 


001411 








BEQ 


20* 


{IF EQ, YES 


748 016242 


000302 








SWAB 


R2 


iNO, REBUILD DATA PATTERN READ 


749 016244 










SAVSMR 




{SAVE SMR CONTENT 


016244 


017701 


005736 






MOV 


SSMR.R1 


iSAVE SMR CONTENT 


750 016250 










SAVCIR 




i SAVE CIR CONTENT 


016^50 


017700 


005730 






MOV 


3CIR.R0 


iSAVE CIR CONTENT 


751 016254 










ERROR 


55. 


(DATA CHECK ON IEC TALKER OR LISTENER 


016254 


104467 








TRAP 


55. 


j ERROR 55. 


016256 


000000 








.WORD 





{ERROR COUNT 


752 016260 


000137 


015400 






JMP 


TEsrio 


{RESTART SUBTEST 


753 016264 








20* ; 


T5T15 


acin 


{SECOND "DATA ACCEPTED" ? 


016264 


032777 


100000 


005712 




BIT 


0BIT15,o)ClR 





SEQ 85 



17 



Hi^ifiWtmHSR^SFO^Ta^EBSSp 



754 016272 

755 016274 
016274 

756 016300 
016300 

757 016304 
016304 

758 016310 
016310 
016312 

759 016314 

760 016320 
016320 

761 016324 

762 016326 

763 016332 

764 016334 

765 016336 
016336 

766 016342 
016342 

767 016346 
016346 
016350 

768 016352 



001012 

017700 

017701 

017702 

104470 
000000 
000157 

017702 
000302 
122702 
001411 
0CO302 

017700 

017701 

104471 
000000 
000137 



005704 
005702 
005702 

015400 
005666 
000376 

005642 
005640 

015400 



-MAR -84 
UPT 
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BNE 


2U 


:IF NE, YES 




SAVCIR 




{SAVE CIR CONTENT 




MOV 


SCIR.RO 


iSAVE CIR CONTENT 




SAVSMR 




j SAVE SMR CONTENT 




MOV 


SSMR.R1 


i SAVE SMR CONTENT 




SAVIOR 




{SAVE IOR CONTENT 




MOV 


QI0R.R2 


j SAVE IOR CONTENT 




ERROR 


56. 


|N0 SECOND "DATA ACCEPTED" 




TRAP 


56. 


{ERROR 56. 




.WORD 





i ERROR COUNT 




vJMP 


TEST10 


{RESTART SUBTEST 


21$: 


SAVIOR 




;GET SECONFO DATA BYTE 




MOV 


SI0R.R2 


j SAVE IOR CONTENT 




SWAB 


R2 


I 




CMPB 


0376, R2 


j IS SECOND DATA BYTE OK ? 




BEQ 


TST10A 


{IF EQ. YES 




SWAB 


R2 


j NO, REBUILD PATTERN READ 




SAVCIR 




j SAVE CIR CONTENT 




MOV 


SCIR.RO 


j SAVE CIR CONTENT 




SAVSMR 




j SAVE SMR CONTENT 




MOV 


QSMR.Rl 


j SAVE SMR CONTENT 




ERROR 


57, 


{DATA CHGCK ON SECOND BYTE 




TRAP 


57. 


i ERROR 57. 




.WORD 





tERROR COUNT 




JMP 


TEST10 


{RESTART SUBTEST 



SEQ 86 



s**V01E02** 



J7 



IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16 5 02 PAGE 44 
TEST 10A -- RANDOM TALKER AND LISTENER DATA TEST 



SEQ 8 7 



770 
771 
7 72 
773 
7 74 
7 75 
776 
777 
778 
"79 
780 
781 
782 
783 
784 
785 
786 
787 

788 
789 
790 
791 
792 
793 
794 



795 



796 
797 
798 



799 
800 
801 
802 
803 



804 



805 
806 



807 

eoa 



, SBTTL TEST 10A 



RANDOM TALKER AND LISTENER DATA TEST 



016356 

016362 

016364 

016370 

016374 

016400 

016402 

016406 

016412 

016420 

016420 

016426 

016432 

016436 

016442 

016444 

016446 

016450 

016450 

016454 

016460 

016464 

016464 

016466 

016470 

016474 

0164 76 

016476 

016500 

016502 

016506 

016512 

016514 

016516 

016516 

016520 

016522 

016526 

016526 

016532 

016536 

016542 

016544 

016544 

016546 

016550 

016554 

016554 

016560 



005037 
005046 
005237 
105077 
005337 
104000 
012705 
012704 
042777 

052777 
105037 
011677 
005037 
005227 
000000 
001375 

017700 
017701 
017702 

104474 
000000 
000137 
103004 

104475 
000000 
000137 
017703 
105003 
000303 

020316 
001002 
000137 

017700 
017701 
017702 
011604 

\04476 
000000 
000137 

005737 
001402 



015400 



015400 
005500 



THIS TEST CNA NOT BE CALLED SEPARATELY, DUE TO THE NECESSARY 
SETUP TO BRING THE BUS INTO THIS STATE. 



016604 

024204 
005610 
024204 

100000 
016474 
177400 005564 

000100 005556 

177776 
005554 
016444 



005530 
005526 
005526 



016554 

005452 
005450 
005450 



015400 
016604 



.ENABL 
T5T10A: CLR 

CLR 

INC 

CLRB 

DEC 

SCOPE 
L0PT7A: MOV 

MOV 

BIC 

INTEN8 

BIS 

CLRB 

MOV 

CLR 
1$: INC 
2*; .WORD 

BNE 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 
3$: BCC 

ERROR 

TRAP 

.WORD 

JMP 
4*: MOV 

CLRB 

SWAB 

IF R3 

CMP 

BNE 

JMP 

SAVIEC 

MOV 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 
5$: IK RANMOD NE 00 GOTO 6$ 

TST RANMOD 

BEQ .»6 



LSB 

RANMOD 

-CSP) 

CIR 

S)CIR 

CIR 

0BIT15.R5 
031 ,R4 
0177400, SCIR 

*BIT6,QCIR 
SOPS 

csp^.aioR 

2* 

(PC)* 


1* 

OCIR*R0 
aSMR,Rl 
QI0R>R2 
60. 
60. 


TEST10 
4i 
61. 
61. 


TEST10 
SI0R.R3 
R3 
R3 
EQ CSP) GOTO 5$ 
R3,(SP) 
. *6 
5i 

WCIR.RO 
8SMR.R1 

B10R.K2 
CSP ),R4 
62. 

62. 


TEST10 



j DISABLE RANDOM MODE 

? CLEAR DATA BUFFER 

l ADDRESS CIR HIGH BYTE 

»RESET INTERRUPT BITS 

j REBUILD FULL CIR ADDRESS 

I SET SCOPE LOOP MARKER 

i SETUP INTERRUPT MASK 

: SETUP INTERRUPT RETURN ADDRESS 

jRESET INTERRUPT BITS 

I ENABLE IEC INTERRUPT 

{ENABLE INTERRUPT IN IEC-11A 

j ENABLE SYSTEM INTERRUPT 

j SEND A DATA BYTE 

j WAIT FOR INTERRUPT 



I SAVE ALL IEC REGISTERS 

j SAVE CIR CONTENT 

j SAVE SMR CONTENT 

{SAVE IOR CONTENT 

j NO INTERRUPT TO DATA SENDING 

, ERROR 60. 

j ERROR COUNT 
{RESTART TEST 
j IF CC, INTERRUPT OK 
jILLEGAt INTERRUPT TO DATA SENDING 

, ERROR 61. 

t ERROR COUNT 
{RESTART VEST 
jREAD BACK DATA BUE 
, PREPARE DATA 
i 

j COMPARE R3 AND CSP) 

i 

{SAVE ALL IEC REGISTERS 

j SAVE CIR CONTENT 

j SAVE SMR CONTENT 

I SAVE IOR CONTENT 

j SAVE 'SHOULD BE ' VALUE 

{DATA CHECK ON IEC BUS 

j ERROR 62. 

; ERROR COUNT 
{RESTART TEST 

;IS RANMOD ZERO ? 

1 



I<7 



IECU-A DIAGNOSTIC MACRO M1200 50-MAR-64 16j02 PAGE 44-1 
TEST 10A -- RANOOM TALKER AND LISTENER DATA TEST 



SEQ 88 



016562 


000157 


016606 


80} 016566 


005216 




810 016570 






016570 


021627 


000400 


016574 


001401 




016576 


000701 




811 016600 


012727 


177777 


012 016604 


000000 




815 016606 


004 757 


011672 


814 016612 


010016 




815 016614 


042716 


177400 


816 016620 


005227 




817 016622 


000000 




818 016624 


001266 




819 016626 


005057 


016604 


820 016652 


012716 


000222 


821 016656 






016656 


052777 


000004 005540 


822 016644 


012677 


005342 


825 016650 


005057 


016666 


824 016654 






016*54 


052777 


100000 005322 


825 016662 


001015 




826 016664 


005227 




827 016666 


OOOOOO 




828 016670 


001571 




829 016672 






016672 


017700 


005506 


016676 


017701 


005504 


016702 


017702 


005304 


e50 016706 






016706 


104477 




016710 


OOOOOO 




851 016712 


000157 


015400 


852 016716 






016716 


052777 


020000 005260 


855 016724 


001012 




854 016726 






016^26 


017700 


005252 


016752 


017701 


005250 


016756 


017702 


005250 


855 016742 






016742 


104500 




016744 


OOOOOO 




856 016746 


000157 


015400 


857 016752 


017703 


005234 


858 016756 


105005 




859 016760 


000505 




840 016762 






016762 


02032? 


000222 


016766 


001002 




016770 


000137 


017020 


841 016774 






016774 


017 ;oo 


005204 


017000 


017701 


005202 


017004 


017 702 


005202 


842 017010 









JMP 


6$ 


J 




INC 


(SP) 


{BUILD NEXT DATA PATTERN 




IF (SP) 


NE 4400 GOTO L0PT7A 




CMP 


(SP).MOO 


, COMPARE (SP) AND 0400 




BEQ 


. »4 


1 




BR 


L0PT7A 


i 




MOV 


0-1, (PC)* 


1 SWITCH TO RANOOM MODE 


RANMODi 


.WORD 





1 RANOOM MODE FLAG 


6$: 


CALL RANDOM 


jGET A RANOOM PATTERN IN RO 




MOV 


RO.(SP) 


,MOVE PATTERN ONTO STACK 




BIC 


4177400, (SP) 


jBUILD A BYTE 




INC 


(PC)* 


lLOOP 65556 TIMES 




.WORD 









ONE 


L0PT7A 






CLR 


RANMOD 


! SWITCH BACK TO NORMAL MODE 




MOV 


4222, (SP) 


iPREPARE LAST DATA PATTERN 




SET2 


8CIR 


jINOICATE "LAST BYTE" 




BIS 


4eiT2,3CIR 






MOV 


(SP)*,SI0R 


;LQAD IT 




CLR 


Si 


iWAIT FOR "DATA ACCEPTED" 


7$; 


TST15 


SCIR 






BIT 


4SIT15.SCIR 






BNE 


9$ 






INC 


(PC)* 




8*: 


.WORD 









BNE 


7$ 






SAVIEC 




iSAVE ALL IEC REGISTERS 




MOV 


9CIR.R0 


tSAVE CIR CONTENT 




MOV 


SSMR.R1 


j SAVE SMR CONTENT 




MOV 


8I0R.R2 


l SAVE IOR CONTENT 




ERROR 


63. 


jNO DATA ACC WHEN SENDING LAST BYTE 




TRAP 


65. 


i ERROR 63. 




.WORD 





j ERROR COUNT 




JMP 


TEST10 


iRESTART TEST 


9$: 


TST15 


»CIR 


iIS "END" SET ? 




BIT 


♦BITU.aCIR 






BNE 


10$ 


I IF NE. YES 




SAVIEC 




jSAVE ALL IEC REGISTERS 




MOV 


QCIR.RO 


iSAVE CIR CONTENT 




MOV 


SSMR.R1 


j SAVE SMR CONTENT 




MOV 


8I0R.R2 


j SAVE IOR CONTENT 




ERROR 


64. 


♦.NO "ENO" TO "LAST BYTE" 




TRAP 


64. 


j ERROR 64. 




.UCRD 





j ERROR COUNT 




JMP 


TEST10 


iRESTART TEST 


10*1 


MOV 


SI0R,R5 


j READ BACK DATA BYTE 




CLRB 


R3 






SWAB 


R3 


» PREPARE FOR CHECK 




IF R5 EQ 0222 GOTO 11$ 






CMP 


R 5, 3222 


, COMPARE R3 AND 4222 




BNE 


. *6 


• 




JMP 


lit 


J 




SAVIEC 




j SAVE ALL IEC REGISTERS 




MOV 


aCIR.RO 


i SAVE CIR CONTENT 




MOV 


ssmr.ri 


{SAVE SMR CONTENT 




MOV 


SI0R.R2 


j SAVE IOR CONTENT 




ERROR 


65, 


jOATA CHECK ON "LAST BYTE** 



L7 



IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 44-2 
TEST 10A - RANDOM TALKER AND LISTENER DATA TEST 



SEQ 89 



843 
844 

845 



84b 
847 



017010 
017012 
017014 
017020 
017020 
017026 
01/026 
017032 
017034 
017040 
017044 



104501 
000000 
000137 



015400 



052777 000040 005156 



11$ 



005737 
001004 
012746 
004 73 7 
000207 



011670 

023373 
005654 



68$ 



TRAP 


65. 


.WORD 





JMP 


TEST10 


MCLEAR 




BIS 


$BIT5,3CIR 


TSTEND 


7 


TST 


MSGF'LG 


BNE 


68$ 


MOV 


*MTE7 t -(SP) 


CALL 


*. .WRT 


RETURN} 




,DSABL 


LSB 



; ERROR 65. 

I ERROR COUNT 
jRESTART SUBTEST 
, MASTER CLEAR 
lEXECUTE MASTER CLEAR 
I END OF SUBTEST 7 
i PRINTOUT OR NOT? 

j SAVE 0MTE7 ONTO STACK 
I INITIATE PRINTOUT 
{RETURN TO CALLER 



K A -} 



M7 



W 



11-A 
J 11 



849 
850 

852 



853 
854 

855 

856 

857 

858 
859 
860 

861 
862 
863 
864 

865 

866 
867 
868 

869 
870 
871 

872 
07? 



874 



875 
876 
87 7 

678 

879 
880 

881 
882 

883 
884 
885 
886 



DIA 



GNOSTIC „ MAC 

YfsT function or 



RO M12< 
<LTN> 



)Q 30 MAR 

AND <LUN> 



84 16:02 PAGE 45 



SEQ 90 



017046 

017052 

017054 

017054 

017060 

017064 

017066 

017066 

017074 

017074 

017102 

017102 

017U0 

017110 

017116 

017120 

017126 

017126 

017134 

017136 

017140 

017142 

017142 

017150 

017150 

017156 

017160 

017164 

017164 

017172 

017174 

017176 

017200 

017202 

017202 

017206 

017212 

017216 

017216 

017220 

017222 

017226 

017234 

017234 

017242 

017242 

017250 

017252 

017252 

017260 

017264 

01 7264 

0172/2 

0172/4 

017276 

017300 



005737 
001004 

012746 
004 737 
104000 

052777 

052777 

052777 

032777 
001374 
042777 

052777 
000240 
000240 
000240 

052777 

032777 

001774 
005037 

032777 
001015 
005227 
000000 
001371 

017700 
017701 
017702 

104502 
000000 
000137 
042777 

052777 

032777 
001774 

052777 
005037 

032777 
001015 
005227 
OCOOOO 
001371 



011670 



023410 
005654 



000040 
000001 
000100 
020000 
177400 
000020 

000004 
001000 
017176 
010000 



004 7 76 
004 7 74 
004774 



017046 
177400 

000002 

000400 



000004 
017276 



TEST11 



L0PT8; 



005110 
005102 
005076 
005070 
005056 
005052 

005036 
005030 

005014 



1*: 



2$: 



3$: 



4$; 



004 750 5$ j 
004 744 



004 736 
004726 



6$; 



010000 004 714 



7$ i 



8$s 



.SBTTl 

T5T 

BNE 

WRITE 

MOV 

CALL 

SCOPE 

MCLEAR 

BIS 

SACS 

BIS 

SIC 

BIS 

TST13 

BIT 

BNE 

BIC 

LTN 

BIS 

NOP 

NOP 

NOP 

GTS 

BIS 

TST9 

BIT 

BEQ 

CLR 

TST12 

BIT 

BNE 

INC 

.UORD 

BNE 

SAVIEC 

MOV 

MOV 

MOV 

ER30R 

TRAP 

.UORD 

JMP 

BIC 

TCA 

BIS 

TST8 

BIT 

BEQ 

GTS 

BIS 

CLR 

rsu2 

BIT 
BNE 

INC 
.vJORD 

BNE 



TEST 11 -- TEST 

MSGFLG 

L0PT8 

MT8S 

0MT8S, -CSP) 

$. ,WRT 



0BIT5,SCIR 

OBITO.aCIR 

0BIT6.3SMR 

SSMR 

*6IT13*8SMR 

1* 

0177400, 3CIR 



06IT4,QSNR 



*eiT2,BSMR 
aSMR 

*eiT9.asMR 

21 

4$ 

SSMR 

*BIT12,8SMR 

5$ 

CPOf 



3$ 

QCIR.RO 

aSMR.Rl 

8I0R.R2 

66. 

66. 



TEST11 

#177400, 3CIR 

OOITl.QSMR 
DSMH 

06IT8,aSMR 
6$ 

0DIT2»i35MR 

a* 

aSMR 

oairi2,asMR 

9$ 

(PC)* 

7$ 



FUNCTION OF <LTN> AND <LUN> 
jPRINTOUT OR NOT? 

iSTART MESSAGE TEST 11 

jSAVE 0MT8S ONTO STACK 
, INITIATE PRINTOUT 

,SET SCOPE LOOP MARKER 

t MASTER CLEAR 

jEXECUTE MASTER CLEAR 

l SET CONTROLER ACTIVE 

I SET SACS BIT IN CIR 

j SEND INTERFACE CLEAR 

I SEND INTERFACE CLEAR 

j WAIT FOR SIAS OFF 

jRESET INTERRUPT CONDITIONS 
ILISTEN *! 



GOTO STAND BY 
GO TO STAND BY 
WAIT FOR CSBS 



WAIT FOR LACS 



SAVE ALL IEC REGISTERS 
SAVE CIR CONTENT 
SAVE SMR CONTENT 
SAVE IOR CONTENT 
NO LACS TO LTN 

j ERROR 66. 

; ERROR COUNT 

RESET ALL INTERRUPT CONDITIONS 
GO BACK TO CACS 

TAKE CONTROL ASyNC 
WAIT FOR CACS AGAIN 



TRY AGAIN TO GET LACS 
GO TO STAND BY 



N7 



IECU-A DIAGNOSTIC MACRO M12O0 30-MAR-84 16;02 PAGE 45-1 
VEST 11 -- TEST FUNCTION OF <LTN> AND <LUN> 



SEQ 91 



687 



888 



889 
890 
891 

892 

893 
694 

895 
896 
897 
898 

899 

900 
901 

902 
903 



904 



90S 
906 

907 



908 



017302 

017302 

017306 

017312 

017316 

017316 

017320 

017322 

017326 

017334 

017334 

017342 

017342 

017350 

017352 

017352 

017360 

017362 

01/364 

017366 

017366 

017374 

017374 

017402 

017404 

017404 

017412 

017414 

017414 

017420 

017424 

017430 

017430 

017432 

017434 

017440 

017440 

017446 

017446 

017450 

017452 

017456 

017460 

017462 

017470 

0174 70 

0174 74 

0174 76 

017502 

017506 



017700 
017701 
017702 

104503 
000000 
000137 
042777 

052777 

032777 
001774 

052777 
000240 
000240 
000240 

052777 

032777 
001774 

032777 
001412 

017700 
017701 
017702 

104506 
000000 
000137 

0527/7 

005327 
177777 
005737 
001401 
000601 
012737 

00573/ 
001004 
012746 
00473/ 
000207 



004676 
004674 
004674 



017046 
177400 

000002 

000400 

000040 



000004 
001000 



004650 9$: 
004644 



004636 
004626 

004612 
004604 



10$ 



11$ 



010000 004574 



004564 
004562 
004562 



017046 
000040 

017450 

177777 
011670 

0254 7? 
005654 



004536 



12$; 



64$; 



017450 



66$: 



SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

BIC 

TCA 

BIS 

TST8 

BIT 

BEQ 

LUN 

BIS 

NOP 

NOP 

NOP 

GTS 

BIS 

TST9 

BIT 

BEQ 

TST12 

BIT 

BEQ 

SAVIEC 

nOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

MCLEAR 

BIS 

LOOP 

DEC 

.WORD 

TST 

BEQ 

BR 

MOV 

TSTENO 

TST 

BNE 

MOV 

CALL. 

RETURNi 



&CIR.RO 

aSMR.Rl 

SI0R.R2 

67. 

67. 



TEST11 

0177400, SOR 

«BIT1,8SMR 

3SMR 

4BIT8,8SMR 

101 

4BIT5,aSMR 



ObIT2,aSMR 

SSMR 

06IT9,HSMR 

11$ 

SSMR 

oeiTi2»asMR 

12$ 

QCIR.RO 

SSMR.R1 

MI0R.R2 

70. 

70. 



TEST11 

06IT5,aCIR 
-1.L0PT8 
(PCU 
■1 

64$ 
. »4 
L0PT6 
3-1,64$ 
8 

MWL.o 
66$ 

0MTF8, *<SP) 
$. .WRT 



i SAVE IEC REGISTERS 

,SAVE CIR CONTENT 

I SAVE SMR CONTENT 

I SAVE IOR CONTENT 

{NO LACS AFTER (LIN-GTS-TCA-GTS) 

, ERROR 67, 

jERROR COUNT 
{RESTART SUBTEST 
{RESET ALL INTERRUP '" CONDITIONS 
{GO BACK TO CACS 
j TAKE CONTROL ASYNC 
{WAIT FOR CACS 

! LOCAL UNLISTEN 



l GO AGAIN TO STAND BY STATE 

;G0 TO STAND BY 

{WAIT FOR STAND BY STATE 



; 



IS LACS STILL SET ? 

lIF EQ. NO 

,SAVE ALL IEC REGISTERS 

{SAVE CIR CONTENT 

»SAVE SMR CONTENT 

{SAVE IOR CONTENT 

{LACS STILL SET AFTER ( LTN-GTS- TCA-LUN -GTS ) 

{ERROR 70, 

{ERROR COUNT 
;RESTAPT SUBTEST 
;MASTER CLEAR 
jEXECUTE MASTER CLEAR 

: COUNT LOOPS 

IS 64$ ZERO ? 



i SETUP NEW LOOP COUNT 

! PRINTOUT OR NOT? 

{SAVE 0MTE8 ONTO STACK 
(INITIATE PRINTUUT 
j RETURN TO CALLER 



B8 



IECll-A DIAGNOSTIC MACRO M1200 30-MAR-84 16{02 PAGE 46 
TEST 12 -- TEST FUNCTION OF <BLOCK DAC> 



SEQ 92 



910 
911 

<n<? 

915 



914 
915 

916 
917 

918 

919 



920 



921 
922 

923 

924 
925 



926 

92 7 
926 
929 

930 

931 

932 

933 
934 

935 

9^ 

937 
936 
939 
940 

941 
942 



017510 
017514 

017516 

017516 

017522 

017526 

017530 

017530 

017536 

017536 

017544 

017544 

017552 

017554 

017554 

017560 

017564 

017570 

017570 

017572 

017574 

017576 

017576 

017604 

017604 

017612 

017614 

017614 

017620 

017624 

017630 

017630 

017632 

017634 

017636 

017640 

017640 

017646 

017646 

017654 

017654 

017662 

017662 

017670 

017672 

017672 

017700 

0177O6 

01/706 

017714 

017716 

017724 

017732 

017732 

017/40 

017742 



005737 
001004 

012746 
004737 
104000 

052777 

052777 

032777 
001011 

017700 
017701 
017702 

104507 
OOOOOO 
000745 

042777 

032777 
001411 

017700 
017701 
017702 

104510 
OOOOOO 
000725 
104000 

052777 

052777 

052777 

032777 
001374 

052777 
013777 

032777 

001774 
042777 
013777 

032777 
001 7 74 
042777 



011670 



023507 
005654 



000040 
000010 
000010 



004424 
004422 
004422 



000010 
000010 



004364 
004362 
004362 



OO0040 
000001 
000100 
020000 



000010 
024220 



TEST12! 



L0PT9i 



004446 
004440 
004432 



004400 
004372 



004336 
004 330 
004 324 
004 316 



004304 
004 304 



100000 004270 



Mi 



3$j 



177400 
024216 

100000 

177400 



004260 
004260 

004244 
004234 



4$ 



51; 



.SBTTL 

1ST 

BNE 

WRITE 

MOV 

CALL 

SCOPE 

MCLEAR 

BIS 

SET3 

BIS 

TST3 

BIT 

BNE 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

BR 

CLR3 

BIC 

TST3 

BIT 

BEQ 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

BR 

SCOPE 

MCLEAR 

BIS 

SACS 

BIS 

SIC 

BIS 

TSUS 

BIT 

BNE 

SET 3 

BIS 

MOV 

TST15 

BIT 

BEQ 

BIC 

MOV 

TST15 

BIT 

BfcU 

BIC 



TEST 12 •- TEST 

MSGFLG 

L0PT9 

MT9S 

*MT9S, -CSP) 

I..WRT 



#6IT5,SCIR 

SCIR 

♦BITS.BCIR 

OCIR 

♦BIT3.BCIR 

II 

DCIR.RO 

QSMR.R1 

SI0R.R2 

71. 

71. 



TEST12 

©CIR 

♦eiT3,©CIR 

OCIR 

•ens.sciR 

2$ 

BCIR.RO 
QSMR.R1 
8I0R.R2 

72 . 
72. 

TEST12 



0BIT5,SCIR 

GBITO.BCIR 

♦BIT6.SSMR 
ttSMR 

♦eiU3,asMR 

St 

OCIR 

«eiT3,aciR 

LISTNR.SIOR 
OCIR 

♦BIU5.0CIR 
41 

♦177400, OCIR 
TALKER, SIOP 
OCIR 

♦6IT15,SCIR 
5$ 

n 77400, eciR 



faction of <blc:k dac> 

PRINTOUT OR NOT? 

START MESSAGE TEST 12 

,SAVE *MT9S ONTO STACK 
1 INITIATE PRINTOUT 

SET SCOPE LOOP MARKER 

MASTER CLEAR 

EXECUTE MASTER CLEAR 

TRY TO SET <BLOCK DAC> 



IS <BLOCK OAC> SET ? 
TF KM" yc C 

SAVE ALL IEC REGISTERS 
SAVE CIR CONTENT 
SAVE SMR CONTENT 
SAVE IOR CONTENT 
<BLOCK OAC> NOT SET 

,ERROR 71. 

t ERROR COUNT 
RESTART S^TEST 
TRY TO RESET <BLOCK DAC > 

IS <BLOCK DAC> RESET 

IF EQ, YES 

SAVE ALL IEC REGISTERS 
SAVE CIR CONTENT 
SAVE SMR CONTENT 
SAVE IOR CONTENT 
<BLOCK DAC> NOT RESET 

, ERROR 72. 

, ERROR COUNT 
RESTART SUBTEST 
SET SCOPE LOOP MARKER 
MASTER CLEAR 
EXECUTE MASTER CLEAR 
SET CONTROLLER ACTIVE 
SET SACS BIT IN CIR 
SEND INTERFACE CLEAR 
SENO INTERFACE CLEAR 
WAIT FOR SIAS Off 



SET <BLOCK DAC* 

SENO LISTENER ADDRESS 
WAIT r*>R <DATA ACCEPTED> 



RESET ALL INTERRUPT CONDITIONS 
SENO TALKER ADDRESS 
WAIT FOR <DATA ACCEPTED'" 



RESET AIL INTERRUPT CONDITIONS 



C8 



IEC11-A DIAGNOSTIC MACRO M120O 30-MAR-84 16i0? PAGE 4t>-l 

TEST I.? - ■■ TEST FUNCTION OF <BLOCI< DAC> 



SEQ 93 



943 017750 
017750 

944 017756 
017756 

945 017764 

946 017766 

947 017774 
946 017776 

949 020002 
020002 

950 020010 

951 020014 

952 020022 

953 020024 

954 020026 

955 020030 

956 020032 
020032 
020036 
020042 

957 020O46 
020046 
020050 

958 020052 

959 020056 

960 020062 

961 020064 

962 020066 
020066 
020072 
020074 

963 020100 
020100 
C20104 

,>20110 

964 J20U4 
020114 
020116 

965 020120 

966 020124 
020124 

967 020132 
020132 
020154 
020136 
020142 
020144 
020150 

966 020156 
020156 
020162 
020164 
020170 
020174 



05277 7 000004 004230 



032777 
001774 
042777 
005005 
012704 

052777 
005037 
012777 
005227 
000000 
001375 
000412 

017700 
017701 
017702 

104511 
000000 
000137 
017703 
105003 
000303 

020327 
001002 
000137 

017700 
017701 
01770? 

104512 
000000 
000137 



010000 004222 

177400 004210 

020032 

000100 004174 

177776 

000333 004170 



6*j 



004146 
004144 
004144 



017510 
004130 



000333 

020124 

004100 
004076 
004076 



017510 



005327 
000024 
005737 
001402 
000137 
012737 

005737 
001004 
012746 
004 737 
000207 



7$; 



8$; 



9$: 



052777 000040 004052 



020134 

017526 

000024 020134 

011670 

023565 
005654 



105 i 



65$: 



67*i 



GTS 

BIS 

TST12 

BIT 

BEQ 

BIC 

CLR 

MOV 

INTEND 

BIS 

CLR 

MOV 

INC 

.WORD 

BNE 

BR 

SAVIFC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

MOV 

CLR8 

SWAB 

IF R3 

CMP 

BNE 

JMP 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 
JMP 

MCLEAR 
BIS 

LOOP 

DEC 

.WORD 

TST 

BEQ 

JMP 

MOV 

TSTENO 

TST 

BNE 

MOV 

CAU 

RETURNi 



06IT2,QSMR 

SSMR 

0BIU2.QSMR 

6$ 

01774OO t QCIR 

R5 

08$, R4 

06IT6,S)CIR 

SOPS 

0333.QI0R 

(PC)* 



7$ 

9$ 

OCIR.RO 
BSMR.R1 
8I0R.R2 
73, 
73. 


TEST12 
8I0R.R3 
R3 
R3 
EQ 0333 GOTO 10$ 
R3.0J33 
,♦6 
10* 

8CIR.R0 

BSMR.R1 

8I0R.R2 

74, 

74, 



TEST12 

0BIT5,SCIR 

2O..L0PT9 

(PC)* 

20. 

65$ 

. »6 

L0PT9 

020. ,65$ 

9 

MSGFLG 

67$ 

0MTE9, ^(SP) 

**»WRT 



iGOTO <STAND BY> STATE 
iGO TO STAND BY 
j WAIT FOR <LAC5> 



ALL INTERRUPT CONOITIONS 
INTERRUPT MASK 
INTERRUPT RETURN ADDRESS 

IEC INTERRUPT 

INTERRUPT IN IEC-11A 

SYSTEM INTERRUPTS 

DATA PATTERN 

SHORT TIME 



i RESET 
j SETUP 
»SETUP 
I ENABLE 
j ENABLE 
I ENABLE 
»SENO A 
I WAIT A 
i 

I OK. NO INTERRUPT OCCURED 

I SAVE ALL IEC REGISTERS 

I SAVE CIR CONTENT 

I SAVE SMR CONTENT 

j SAVE I OR CONTENT 

i INTERRUPT WITH <BLOCK DAC> 

lERROR 73. 

» ERROR COUNT 
jRESTART SUBTEST 
jGET INPUT BUFFER CONTENT 
I PREPARE FOR CHECK 
I 



I COMPARE «3 

i 



ANO 0333 



t SAVE 
j SAVE 
I SAVE 
I SAVE 



ALL 
CIR 

C JHR 
IOR 



DAC> 



IEC REGISTERS 

CONTENT 

CONTENT 

CONTENT 
I IEC DmTA CHECK WITH <BLOCK 
I ERROR 74, 
I ERROR COUNT 
iRESTANr SUBTEST 
i MASTER CLEAR 
(EXECUTE MASTER CLEAR 

i COUNT LOOPS 

jIS 65$ <?ERO ? 

i 

i SETUP NEW LOOP COUNT 
lENO Of TEST 12 
I PRINTOUT OR NOT? 

I SAVE 0MTE9 ONTO STACK 
I INITIATE PRINTOUT 
, RETURN TO CALLER 



D8 



IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 4/ 
TEST 13 -- TEST FUNCTION OF <RSV>,<SRQ> AND <SPAS> 



SEQ 94 



970 
971 

973 



974 

975 

976 

977 

978 

979 
980 
981 

982 
983 

984 
985 
986 

987 
988 



989 



990 

991 

992 

993 



994 
995 

996 

997 
998 



999 
1000 

1001 

1002 
1003 



020176 

020202 

020204 

020204 

020210 

020P14 

020216 

020216 

020224 

020224 

020232 

020232 

020240 

020240 

020246 

020250 

020256 

020256 

020264 

020270 

020270 

020276 

020300 

020302 

020304 

020306 

020306 

020312 

020316 

020322 

020322 

020324 

020326 

020332 

020332 

020340 

020342 

020342 

020344 

020346 

020352 

020352 

020360 

020360 

020366 

020370 

020370 

020372 

020374 

020400 

020400 

020406 

020406 

020414 

020416 

020416 



011670 



023602 
005654 



000040 

000001 

OOOIOO 

020000 

177400 

000020 
0203O2 



003760 
003752 
003746 
003740 
003726 
003720 



040000 003706 



005737 
001004 

012746 
004737 
104000 

052777 

052777 

052777 

032777 

001374 
042777 

052777 
005037 

032777 
001015 
005227 
OOOOOO 
001371 

0*7700 

017701 
017702 

104513 
OOOOOO 
000137 

032777 
001004 

104557 
OOOOOO 
000137 

052777 

032777 
001404 

104560 
OOOOOO 
000137 020176 

042777 002000 003576 

032777 000200 003570 
001004 

104561 



TEST13; 



L0PT105 



1$ 



2*i 



3* 



003672 
003670 
003670 



020176 

000200 003644 

020176 

0020O0 003624 

000200 003616 



45 



41$ 



42$ 



.SBTTL 

TST 

BNE 

WRITE 

MOV 

CALL 

SCOPE 

MCLEAR 

BIS 

SACS 

BIS 

SIC 

BIS 

T5T13 

BIT 

BNE 

BIC 

SET4 

BIS 

CLR 

TST14 

BIT 

BNE 

INC 

.WORD 

BNE 

SAVIfcC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

TST7 

BIT 

BNE 

ERROR 

TRAP 

.WORD 

JMP 

INHSRQ 

PIS 

TST7 

BIT 

BEQ 

ERROR 

TRAP 

.WORD 

JMP 

CLR10 

BIC 

TST7 

BIT 

BNE 

ERROR 

TRAP 



TEST 13 -- TEST 

MSGFLG 
L0PT10 

MT10S 

W1T10S.-CSP) 
$, ,WRT 



*BIT5 $ »CIR 
OBITO.SCIR 

*eiT6,QSMR 

SSMR 

*BlU3*aSMR 

II 

0177400. BCIR 

OCIR 

*BIT4,©CIR 

3$ 

aciR 

*BIT14.QCIR 

(PC)* 



2$ 

SCIR.RO 
BSMR.R1 
QI0R,R2 

75. 

75. 



TESU3 

OCIR 

*6IT7,8CIR 

411 

111. 

ill. 
o 

TEST13 

OSlTiO.SCIR 

SCIR 

0BIT7.SCIR 

42$ 

112. 

112. 



TEST13 

SCIR 

♦BITIO.SCIR 

OCIR 

08IT7.SCIR 

43$ 

113. 

113. 



FUNCTION OF <RSV>,<SRQ> AND <SPAS> 
j PRINTOUT OR NOT? 

I START MESSAGE TEST 13 

,SAVE 0MT10S ONTO STACK 
iINITaHTE PRINTOUT 

i SCOPE LOOP MARKER 

l MASTER CLEAR 

j EXECUTE MASTER CLEAR 

j SET CONTROLLER ACTIVE 

»SET SACS BIT IN CIR 

$ SEND INTERFACE CLEAR 

,SENO INTERFACE CLEAR 

I WAIT FOR SIAS TO GO OFF 



iRESET ALL INTERRUPT CONDITIONS 
iSET <RSV> 

I WAIT FOR <SRQ> 



I SAVE ALL IEC REGISTERS 
j SAVE CIR CONTENT 
I SAVE SMR CONTENT 
I SAVE IOR CONTENT 
»N0 <SRQ> TO <RSV> 

ifRROR 75. 

» ERROR COWT 
»RESTART TESTPART 
jSEE IF INT BIT SET 



i BRANCH IF SET 

»INT BIT NOT SET AT 

, ERROR 111. 

i ERROR COUNT 



I **V02E00** 

1 **V02EOO** 
SRQ i **V02EO0** 



I **V02E0O** 
I **V02E00** 



;SET SRQ INT INHIBIT 

j SET INHIBIT SRQ INTERRUPT 

I INTERRUPT BIT SET? » **V02EOO»* 



I BRANCH IF NOT 

I INT BIT NOT CLEAR 

i ERROR 112. 

i ERROR COUNT 

iRESF.T SRQ INT INHIBIT 

I LOOK FOR INT BIT 

i BRANCH IF SET AGAIN 
iBIT 7 STILL CLEAR 
iERROR 113. 



i **V02ECO** 
I **V02E00** 



I *#V02E0O** 

l **V02EOO** 

j *»V02E00*» 

I **V02EO0** 

1 **V02E00** 



E8 



PA d * / W?Snction m §F r ?r§ 


tf?M? 


-HB-Si 


jPA5> 




020420 


000000 








.WORD 





» ERROR COUNT 


1004 020422 


000137 


020176 






JMP 


TEST13 


1 +4.VO2E0O+ + 


1005 020426 


013777 


024220 


003556 


43$: 


MOV 


LISTNR.SIOR 


sSEND LISTENER ADDRESS 


1006 020434 








5$! 


TST15 


SCIR 


iWAIT FOR <DATA ACCEPTED* 


0204S4 


032777 


100000 


003542 




BIT 


0BIT15.SCIR 




1007 020442 


001774 








BEQ 


5$ 




1008 020444 


042777 


17740O 


003532 




BIC 


0177400, SCIR 


l RESET ALL INTERRUPT CONDITIONS 


1009 020452 


013777 


024216 


003532 




MOV 


TALKER, SIOR 


iSEND TALKER ADDRESS 


1010 020460 








6*s 


TST15 


SCIR 


»WAIT FOR <DATA ACCEPTED* 


020460 


032777 


100000 


003516 




BIT 


06IT15,aCIR 




1011 020466 


001774 








BEQ 


6$ 




1012 020470 


042777 


177400 


003506 




BIC 


0177400, SCIR 


IrESET ALL INTERRUPT CONDITIONS 


1013 020476 


012777 


000030 


003506 




MOV 


030, 81 OR 


jSEND <SERIAL POLL ENABLE* 


1014 020504 








7$: 


TST15 


SCIR 


iWAIT FOR <DATA ACCEPTED* 


020504 


032777 


1000OO 


003472 




BIT 


08IT15,OCIR 




1015 020512 


001774 








BEQ 


7$ 




1016 020514 


042777 


177400 


003462 




BIC 


0177400, SCIR 


jRESET ALL INTERRUPT CONDITIONS 


1017 020522 










GTS 




jGOTO <STANO BY* STATE 


020522 


052777 


000004 


003456 




BIS 


0BIT2,QSMR 


iGO TO STAND BY 


1018 020530 


005037 


020546 






CLR 


9$ 




1019 020534 








8$: 


TST15 


8SMR 


iWAIT FOR <SPAS> 


020534 


032777 


100000 


003444 




BIT 


0BIT15,QSMR 




1020 020542 


001015 








BNE 


10$ 




1021 020544 


005227 








INC 


(PC)* 




1022 020546 


000000 






9$! 


.WORD 







1023 020550 


001371 








BNE 


8$ 




1024 020552 










SAVIEC 




:SAVE ALL IEC REGISTERS 


020552 


017700 


003426 






MOV 


SCIR.RO 


iSAVE CIR CONTENT 


020556 


017701 


003424 






MOV 


SSMR.R1 


iSAVE SMR CONTENT 


020562 


017702 


003424 






MOV 


SI0R.R2 


iSAVE IOR CONTENT 


1025 020566 










ERROR 


76. 


j NO <SPAS* TO <SPE* 


020566 


104514 








TRAP 


76. 


i ERROR 76. 


020570 


oooooo 








.WORD 





; ERROR COUNT 


1026 020572 


000137 


020176 






JMP 


TEST13 


jRESTART SUBTEST 


1027 020576 


042777 


177400 


003400 


10$: 


BIC 


0177400. SCIR 


iRESET ALL INTERRUPT CONDITIONS 


1028 020604 


012777 


OOOIOO 


003400 




MOV 


0BIT6.8I0R 


jSENO STATUS BYTE 


1029 020612 








11$: 


TST15 


SCIR 


1 WAIT FOR <DATA ACCEPTED* 


020612 


032777 


100000 


003364 




BIT 


0BIT15,8CIR 




1030 020620 


001774 








BEQ 


11$ 




1031 020622 










SAVIOR 




iSAVE IOR CONTENT 


020622 


017702 


003364 






MOV 


SI0R.R2 


iSAVE IOR CONTENT 


1032 020626 


105002 








CLRB 


R2 


; PREPARE FOR DATA CHECK 


1033 020630 


000302 








SWAB 


R2 




1034 020632 










IF R2 EQ 0BIT6 GOTO 12$ 




020632 


020227 


000100 






CMP 


R2.06IT6 


: COMPARE R2 AND 0BIT6 


020636 


001002 








BNE 


. f6 


i 


020640 


000137 


020670 






JMP 


12$ 


i 


1035 020644 










SAVIEC 




iSAVE ALL IEC REGISTERS 


020644 


017700 


003334 






MOV 


SCIR.RO 


iSAVE CIR CONTENT 


020650 


017701 


003332 






MOV 


SSMR.R1 


1 SAVE SMR CONTENT 


020654 


017702 


003332 






MOV 


SI0R.R2 


iSAVE IOR CONTENT 


1036 020660 










ERROR 


77. 


iIEC DATA CHECK ON STATUS BYTE SEND! 


020660 


104515 








TRAP 


77. 


»ERROR 77, 


020662 


OOOOOO 








.WORD 





I ERROR COUNT 


1037 020664 


000137 


020176 






JMP 


TEST13 


iRESTART TEST 


103a 020670 








12$: 


TST14 


SCIR 


lIS <SRQ* OFF ? 


020670 


032777 


040000 


003306 




BIT 


0BIT14.QCIR 





5EQ 95 



F8 



IEC11-A 
TEST 15 

1039 
1040 



1041 



1042 
1043 
1044 

1045 

1046 
1047 
1048 

1049 
1050 

1051 
1052 

1053 
1054 
1055 
1056 
1057 



1056 
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SEQ 96 



1059 
1060 

1061 



1062 



020676 

020700 

020700 

020704 

020710 

020714 

020714 

020716 

020720 

020724 

020732 

020732 

020740 

020740 

020746 

020750 

020756 

020756 

020764 

020766 

020766 

020774 

021000 

021000 

021006 

021010 

021012 

021014 

021016 

021016 

021022 

021026 

021032 

021032 

021034 

021036 

021042 

021042 

021050 

021050 

021052 

021054 

021060 

021062 

021066 

021074 

021074 

021100 

021102 

021106 

021112 



001412 

017700 
017701 
017702 

104544 
000000 
000137 

042777 

052777 

032777 
001774 
012777 

032777 
001774 

052777 
005037 

032777 
001015 

005227 
000000 
001371 

017700 
017701 
017702 

104545 
000000 

0OO137 

052777 

005327 
177777 
005737 
001402 
OOOli/ 
012737 

005737 
001004 
012746 
OC4737 
000207 



003300 
003276 
003276 



020176 
177400 

000002 

000400 

000031 

100000 



003252 
003246 
003240 
003234 
003220 



13$: 
14$: 

15$: 



000004 003212 
021012 

004000 003200 



16$: 



17*: 



003162 
003160 
003160 



020176 

000040 003134 

021052 

020214 

177777 021052 

011670 

023674 
005654 



18$: 



65$: 



67$: 



BEQ 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

• WORD 

JMP 

BIC 

TCA 

BIS 

TST8 

BIT 

BEQ 

MOV 

TST15 

BIT 

BEQ 

GTS 

BIS 

CLR 

TST11 

BIT 

BNE 

INC 

.WORD 

BNE 

SAVIEC 

MOV 

MOV 

MOV 

ERROR 

TRAP 

.WORD 

JMP 

MCLEAR 

BIS 

LOOP 

DEC 

.WORD 

TST 

BEQ 

JMP 

MOV 

TSTEND 

TST 

BNE 

MOV 

CALL 

RETURN: 



13$ 

SCIR.RO 

8SMR.RI 

8I0R.R2 

100. 

100. 



TEST13 

0177400, QCIR 

•BIT1.8SMR 

SSMR 

*BIT8,8SMR 

14$ 

$3l # aiOR 

8CIR 

*BIT15,8CIR 

15$ 

*BIT2,SSMR 

17$ 

SSMR 

0BIT11.8SMR 

18$ 

(PC)* 



16$ 

8CIR.R0 

SSMR.R1 

8I0R.R2 

101. 

101. 



TEST13 

0BIT5.8CIR 

-1.L0PT10 

(PC)* 

-1 

65$ 

.♦6 

LOPTIO 

#-1.65$ 

10 

MSGFLG 

67$ 

*MTE10,-(SP) 

$. .WRT 



I IF EQ, YES 

I SAVE ALL IEC REGSITERS 

» SAVE CIR CONTENT 

j SAVE SMR CONTENT 

i SAVE IOR CONTENT 

l<SRQ> NOT OFF AFTER STATUS BYTE SENDING 

I ERROR 100. 

I ERROR COUNT 
{RESTART TEST 

iRESET ALL INTERRUPT CONDITIONS 
{ENTER <CACS> 
I TAKE CONTROL ASYNC 
{WAIT FOR <CACS> 



I SEND < SERIAL POLL DISABLE > 
I WAIT FOR <DATA ACCEPTED> 

{TRY TO GET <TACS> WHEN ENTERING <CSB5> 
iGO TO STAND BY 

j WAIT FOR <TACS> TO BECOME TRUE 



i 
i 
l 

I SAVE ALL IEC REGISTERS 

j SAVE CIR CONTENT 

I SAVE SMR CONTENT 

I SAVE IOR CONTENT 

{NO <TACS> AFTER <SPD> 

i ERROR 101. 

{ERROR COUNT 
{RESTART SUBTEST 
{MASTER CLEAR 
{EXECUTE MASTER CLEAR 

jCOUNT LOOPS 

j IS 65$ ZERO ? 
♦ 

l 
{SETUP NEW LOOP COUNT 
{ENO OF TEST 13 
{PRINTOUT OR NOT? 

{SAVE *MTE10 ONTO STACK 
{INITIATE PRINTOUT 
{RETURN TO CALLER 



G8 
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1064 










.SBTTL 


TEST 14 --- TEST RPP BIT R/W 


1065 021114 


005737 


011670 




TEST14; 


TST 


MSGFLG 


{PRINTOUT OR NOT? 


1066 021120 


001004 








BNE 


L0PT11 




1067 021122 










WRITE 


MT11S 


; START MESSAGE TEST 14 


021122 


0127«6 


023711 






MOV 


*MT11S,-(SP) 


iSAVE *MT11S ONTO STACK 


021126 


004737 


005654 






CALL 


$. .WRT 


j INITIATE PRINTOUT 


1068 021132 


104000 






LOPTlls 


SCOPE 




» SCOPE LOOP MARKER 


1069 021134 










MCLEAR 




■MASTER CLEAR 


021134 


052777 


000040 


003042 




BIS 


0BIT5.8CIR 


I EXECUTE MASTER CLEAR 


1070 021142 










SACS 




{SET CONTROLLER ACTIVE> STATE 


021142 


052777 


000001 


003034 




BIS 


OBITO.BCIR 


{SET SACS BIT IN CIR 


1071 021150 










SIC 




{SEND INTERFACE CLEAR> 


021150 


052777 


000 100 


003030 




BIS 


«BIT6,SSMR 


jSENO INTERFACE CLEAR 


1072 021156 








3*5 


TST13 


SSMR 


{WAIT FOR <SIAS TO GO OFF 


021156 


032777 


020000 


003022 




BIT 


*8IT13,SSMR 




1073 021164 


001374 








BNE 


3$ 


1 


1074 021166 










SET3 


SSMR 


{TRY TO SET <RPP> 


021166 


052777 


000010 


003012 




BIS 


*BIT3,SSMR 




1075 021174 










TST3 


SSMR 


tlS <RPP> SET ? 


021174 


032777 


000010 


003004 




BIT 


08IT3.SSMR 




1076 021202 


001012 








BNE 


If 


jIF NE, YES 


1077 021204 










SAVIEC 




{SAVE ALL IEC-REGISTERS 


021204 


017700 


002774 






MOV 


8CIR.R0 


{SAVE CIR CONTENT 


021210 


017701 


002772 






MOV 


SSMR.Rl 


{SAVE SMR CONTENT 


021214 


017702 


002772 






MOV 


8I0R.R2 


{SAVE I0R CONTENT 


1078 021220 










ERROR 


102. 


1<RPP> NOT SET 


021220 


104546 








TRAP 


102. 


{ERROR 102. 


021222 


OOOOOO 








.WORD 





{ERROR COUNT 


1079 0212c4 


000137 


021114 






JMP 


TEST14 


{RESTART TEST 


1080 021230 








1$: 


CLR3 


aSMR 


{TRY TO RESET <RPP> 


021230 


042777 


000010 


002750 




BIC 


*6IT3,8SMR 




1081 021236 










TST3 


SSMR 


llS BIT RESET ? 


021236 


032777 


000010 


002742 




BIT 


*eiT3.aSMR 




1082 021244 


001412 








BEQ 


2% 


jIF EQ, YES 


1083 021246 










SAVIEC 




{SAVE ALL IEC-REGISTERS 


021246 


017700 


002732 






MOV 


8CIR.R0 


{SAVE CIR CONTENT 


021252 


017701 


002730 






MOV 


8SMR.R1 


{SAVE SMR CONTENT 


021256 


017702 


002730 






MOV 


8I0R.R2 


(SAVE IOR CONTENT 


1084 021262 










ERROR 


103. 


{<RPP> NOT RESET 


021262 


104547 








TRAP 


103. 


{ERROR 103, 


021264 


OOOOOO 








.WORD 





{ERROR COUNT 


1085 021266 


000137 


021114 






JMP 


TEST14 


{RESTART TEST 


1086 021272 








2t: 


LOOP 


-1.L0PT11 




021272 


005327 








DEC 


(PC)* 


{COUNT LOOPS 


021274 


177777 






64$: 


.WORD 


-1 


J 


021276 


005737 


021274 






TST 


64$ 


tIS 64$ ZERO ? 


021302 


001401 








BEQ 


. -4 


i 


021304 


000712 








BR 


L0PT11 


1 


021306 


012737 


177777 


021274 




MOV 


#-1,64$ 


{SETUP NEW LOOP COUNT 


1087 021314 










TSTEND 


11 


J 


021314 


005737 


011670 






TST 


MSGFLG 


{PRINTOUT OR NOT? 


021320 


001004 








BNE 


66$ 




021322 


012746 


023752 






MOV 


OMTEU.-CSP) 


{SAVE ♦MTEll ONTO STACK 


021326 


004737 


005654 






CALL 


$, .WRT 


{INITIATE PRINTOUT 


021332 


000207 






66$: 


RETURN) 




{RETURN TO CALLER 



SEQ 97 



ii^AfcRMRPSHB 



LER 



H8 
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SEQ 98 



1069 
1090 



1091 



1092 
1093 
1094 
1095 

1096 
1097 
1098 
1099 
1100 
1101 



1102 
1103 
1104 
1105 
1106 
1107 
1108 



1109 
1110 

1111 



1112 



1113 

1114 
1115 
1116 



021334 

021334 

021336 

021340 

021342 

021342 

021346 

021352 

021356 

021360 

021364 

021366 

021366 

021374 

021376 

021400 

021402 

021404 

021410 

021410 

021412 

021414 

021416 

021420 

021422 

021426 

021432 

021434 

021436 

021436 

021440 

021442 

021444 

021446 

021452 

021452 

021456 

021462 

021462 

021464 

021466 

021472 

021476 

021500 

021506 



010046 
010146 
010246 

017700 
017701 
017702 
000300 
042700 
000305 

042766 
120500 
001411 
000300 
000505 
062706 

012600 
012601 
012602 
000261 
000114 
010466 
013704 
005204 
105014 

012602 
012601 
012600 
000002 
062706 

012746 
004737 

010046 
005046 
004737 
005737 
001375 
012737 
000111 



002636 
002634 

002634 

000006 



000001 000010 



000012 



000006 
024204 



000004 

023767 
005654 



006400 
007152 

000006 000004 



.SBTTL 
IECINTj PUSH 
MOV 
MOV 
MOV 
SAVIEC 
MOV 
MOV 
MOV 
' ' SWAB 
BIC 
SWAB 
CLRO 
BIC 
CMPB 
BEQ 
SWAB 
SWAB 
ADD 
POP 
MOV 
MCV 
MOV 
SEC 

jrv 

l$j MOV 

MOV 

INC 

CLRB 

POP 

MOV 

MOV 

MOV 

RTI 

TOUT: ADD 

WRITE 

MOV 

CALL 

DUMP 

MOV 

Cl.R 

CALL 

1$: TST 
BNE 
MOV 
JMP 



IEC-INTERRUPT 

R0.R1.R2 

RO.-(SP) 

Rl.-(SP) 

R2.-CSP) 

SCIR.RO 

8SMR.R1 

QI0R,R2 

RO 

06, RO 

R5 

lO(SP) 

OBITO.IOCSP) 

R5.R0 

1$ 

RC 

R5 

012, SP 

R0.R1.R2 

CSPH.RO 

(SP)*,R1 

CSPn,R2 

CR4) 

R4.6C5P) 

CIR,R4 

R4 

(R4) 

R2.R1.R0 

(SP)*,R2 
CSP)*,R1 
CSP)>,R0 

04, SP 

MNOAV 

0MN0AV,-(SP) 

♦. .WRT 

0CT,R0 

RO.-CSP) 

-CSP) 

* . . DMP 

OUTFLG 

II 

06,804 

(Rl) 



HANDLER 

j SAVE RO ONTO STACK 
jSAVE Rl ONTO STACK 
I SAVE R2 ONTO STACK 

» SAVE CIR CONTENT 

I SAVE SMR CONTENT 

j SAVE IOR CONTENT 

{BRING INTERRUPT STATUS INTO LOW BYTE 

j MASK OUT BITS 9 AND 10 OF" CIR 

{BRING INTERRUPT MASK INTO LOW BYTE 

,• ASSUME ALL IS OK 

{SUSPECTED INTERRUPT ? 

jIF EQ, YES 

{REBUILD SAVED CIR CONTENT 

{REBUILD 'SHOULD BE' CONTENT 

{REBUILD STACK POINTER 

{REBUILD R0.R1 ANO R2 j**V03E01*+ 
{RESTORE RO PROM STACK 
{RESTORE Rl FROM STACK 
{RESTORE R2 FROM STACK 

iSET ERROR INOICATOR i**V03E01** 

{RETURN 

{BUILD RETURN ADDRESS 

{PREPARE TO CLEAR INTERRUPT BITS 

{ 

{CLEAR INTERRUPT BITS 

{RESTORE R2 FROM STACK 
{RESTORE Rl FROM STACK 
{RESTORE RO FROM STACK 
{RETURN FROM INTERRUPT 

{INCREASE SP BY 4 

{SAVE OMNOAV ONTO STACK 
{INITIATE PRINTOUT 

{SAVE RO ONTO STACK 

1 ENTER DUMP ROUTINE 

; 
j 
j 
j 



18 
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SUBTEST ADDRESS TABLE 

llltt .SBTTL SUBTEST ADDRESS TABLE 



J8 



IEC11-A DIAGNOSTIC 
MESSAGES 
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SEU 100 



1120 










.SBTTL 


1121 










.NLIST 


1122 021510 


133 


105 


116 


MESli 


.ASCII 


1123 021560 


133 


050 


104 




.ASCII 


1124 










.EVEN 


1125 021606 


133 


111 


105 


Ml: 


.ASCII 


1126 021651 


133 


101 


103 




.ASCII 


1127 










.EVEN 


1128 021666 


133 


105 


116 


MES2; 


.ASCII 


1129 021726 


133 


050 


104 




.ASCII 


1130 










.EVEN 


1131 021750 


133 


105 


116 


MES5: 


.ASCII 


1132 022012 


133 


050 


104 




.ASCII 


1133 










.EVEN 


1134 022034 


133 


126 


105 


MES6: 


.ASCII 


1135 










.EVEN 


1136 022112 


133 


133 


123 


SLON: 


.ASCII 


1137 022167 


133 


124 


131 




.ASCII 


1138 022216 


133 


133 


123 


CLON: 


.ASCII 


1139 022275 


133 


124 


131 




.ASCII 


1140 022324 


133 


133 


123 


MT1S: 


.ASCII 


1141 022371 


133 


105 


116 


MTE1; 


.ASCII 


1142 022405 


133 


133 


123 


MT2S: 


.ASCII 


1143 022452 


133 


105 


116 


MTE2: 


.ASCII 


1144 022466 


133 


133 


123 


MT2AS: .ASCII 


1145 022554 


133 


105 


116 


MTE2A: .ASCII 


1146 022570 


133 


133 


123 


MT3S: 


.ASCII 


114 7 02264 7 


133 


105 


116 


MTE3j 


.ASCII 


1148 022663 


133 


133 


123 


MT3AS: .ASCII 


1149 022720 


133 


105 


116 


MTE3A; .ASCII 


1150 022734 


133 


133 


123 


MT4S: 


.ASCII 


1151 023013 


133 


105 


116 


MTE4; 


.ASCII 


1152 023027 


133 


133 


123 


MT5S 


.ASCII 


1153 023113 


133 


105 


116 


MTE5 


.ASCII 


1154 023127 


133 


133 


123 


MT5A< 


>: .ASCII 


1155 023165 


133 


105 


116 


mtesj 


\: .ASCII 


1156 023201 


133 


133 


123 


MT6S 


.ASCII 


1157 023274 


133 


105 


116 


MTE6 


.ASCII 


1158 023310 


133 


133 


123 


hT7S 


.ASCII 


1159 023373 


133 


105 


116 


MTE7 


.ASCII 


1160 023410 


133 


133 


123 


MT8S 


.ASCII 


1161 023472 


133 


105 


116 


MTE8 


.ASCII 


1162 023507 


133 


133 


123 


MT9S 


.ASCII 


1163 023565 


133 


105 


116 


MTE9 


.ASCII 


1164 023602 


133 


133 


123 


MT10< 


It .ASCII 


1165 023674 


133 


105 


116 


MTEK 


): .ASCII 


1166 0237H 


133 


133 


123 


MTU< 


5: .ASCII 


1167 023752 


133 


105 


116 


MTE1 


L: .ASCII 


1168 025767 


133 


133 


124 


MNOA^ 


/: .ASCII 


1169 024044 


133 


133 


116 


MESNI 


:X: .ASCII 


1170 










.EVEN 


1171 024070 


133 


133 


104 


TPMSC 


»: .ASCII 


1172 










.EVEN 


11/3 024166 


133 


133 


105 


MESEf 


^Di .ASCII 


1174 










.EVEN 


11/5 










.LIST 


1176 










.EVEN 



MESSAGES 

BEX 

/[ENTER FIRST REGISTER ADDRESS OF IEC11-A/ 

/[(DEFAULT IS 160010)]/ 

/[IECU-A BUS CONTROLLER BASIC TESTS/ 
/[AC-T383A-MC]/ 

/[ENTER VECTOR ADDRESS OF IEC11-A/ 
/[(DEFAULT IS 270)]/ 

/[ENTER IEC BUS ADDRESS OF IEC11-A/ 
/[(DEFAULT IS 35)]/ 

/(VECTOR INPUT IS NOT EQUAL TO CONTENTS OF VSR]/ 

/[[SET LON SWITCH ON IEC11-A TO POS.l (ACTIVE)/ 

/[TYPE <CR> WHEN READY[]/ 

/[[SET LON SWITCH ON IEC11-A TO P0S.2 (INACTIVE)/ 

/[TYPE <CR> WHEN READY[]/ 

/[[START TEST 1 

/[END TEST 1]/ 

/[[START TEST 2 

/[END TEST 2]/ 

/[[START TEST 3 

/[END TEST 3]/ 

/[[START TEST 4 

/[ENO TEST 4]/ 

/[[START TEST 5 

/[END TEST 5]/ 

/[[START TEST 6 

/[END TEST 6j/ 

/[[START TEST 7 

/[END TEST 7]/ 

/[[START TEST 8 

/[END TEST 8]/ 

/[(START TEST 9 

/[END TEST 9]/ 

/[[START TEST 10; TEST DATA TRANSFER WITH INTERRUPT]/ 

/[END TEST 101/ 

/[(START TEST 11 j TEST FUNCTION OF <LTN> ANO <LUN>]/ 

/[END TEST U]/ 

/([START TEST 12: TEST FUNCTION OF <BLOCK 0AC>]/ 

/[END TEST 12]/ 

/f[START TEST 13; TEST FUNCTION OF <RSV>,<SRQ>« AND <SPAS>]/ 

/[END TEST 13]/ 

/([START TEST 14 j TEST RPP BIT RW]/ 

/[END TEST 14]/ 

/[(THIS ADDRESS IS NOT AVAILABLE ON UNIBUSj ]/ 

/[[NEXT TEST TO RUN?]/ 

/[(DO YOU WANT A PRINTOUT OF START, END TEST MESSAGES?^ OR N)]/" 

/[[END OF TEST]/ 

BEX 



EXECUTE MASTER CLEAR]/ 

TEST SACS BIT IN CIR]/ 

TEST CIR BIT 10 INHIBIT SRQ INTERRUPT]/ 

TEST SACS SIC SIAS ILLMSG CACS]/ 

TEST INT ENB]/ 

TEST INTERRUPT WITH STATE CHGE]/ 

TEST STATE CHGE INTERRUPT WITH SRAS]/ 

IOR DATA TES1 ]/ 

TEST STATE CHGE INTERRUPT WITH GTS AND SIC]/ 



I<8 



IECll-A 


DIAGNOS 


ARAMETERS 


CONSTANTS AND P 


1178 






1179 


024204 


160010 


1180 


024206 


160012 


1181 


024210 


160015 


1182 


024212 


160014 


1185 


024214 


160016 


1184 


024216 


000100 


1185 


024220 


000040 


1186 


024222 


000270 


1187 


024224 


0002 70 


1188 


024226 


000035 


1189 




001204 



MACRO M1200 
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PAGE 52 






.SBTTL 


CONSTANTS 


CIR; 


.WORD 


160010 


t 


SMR : 


.WORD 


160012 


t 


I0RH6; 


.WORD 


160015 


J 


IOR: 


.WORD 


160014 


J 


VSR: 


.UORD 


160016 


I 


TALKER: 


.WORD 


100 


\ 


LISTNR: 


.WORD 


40 


J 


VECTOR: 


.WORD 


270 


1 


VECA: 


.WORD 


270 


J 


IECAADt 


.WORD 


35 


I 




♦ END 


START 





SEQ 101 



ANO PARAMETERS 
ADDRESS OF IEC CONTROL AND INTERRUPT REGISTER 
ADDRESS OF IEC STATUS ANO MESSAGE REGISTER 
IOR HIGH-BYTE ADDRESS DEFAULT VALUE 
ADDRESS OF IEC INPUT/OUTPUT REGISTER 
ADDRESS OF IEC VECTOR SWITCH REGISTER 
ADDRESS OF TALKER 
ADDRESS OF LISTENER 
ADDRESS OF IEC-VECTOR 
DEFAULT OF IEC11-A VECTOR ADDRESS 
IECll-A BUS ADDRESS DEFAULT VALUE 



v^bAm ms ' 



IC 
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L8 



SEQ 102 



ADDRIN 

BITO 

BIT1 

bitio 

BITll 

BIT12 

BIT13 

BIT14 

BIT15 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BIT8 

BIT9 

COM. .E 

CIR 

CLON 

CMODE - 

U1P . . E 

DUMMtS 

D. ,TYP 

EMTTBL 

EMTTND 

EMTO 

EMT1 

EMT2 

ERRFLG 

IAO..E 

IAE..E 

IAS. .E 

CAY. .E 

.'ECAAD 

1ECINT 

INF LAG 

INPREQ 

INP..E 

10R 

IORHB 

I. .DMP' 

KBBENO 

KBBPNT 

KBBUTF 

KDSARO- 

KOSDRO- 

KlSARO 

K1SAR5' 

KISAR6 

KISAR? 

KISORO 

KISDR6 

KISDR7 

. ABS. 



011170 
000001 
00000? 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

010614 

024204 

022216 

140000 

0066/4 

007210 

006420 

002416 

002424 

002424 

002432 

0024 70 

007154 

004302 

005016 

004466 

004116 

024226 

021334 

007150 

007156 

003776 

024212 

024210 

000001 

007146 

007146 

007026 

172360 

172<2C 

172340 

172352 

172354 

172356 

172300 

172314 

172316 

024230 
000000 



LABU 
LISTNR 
L0PT1 
L0PT10 

L.0PT11 

L0PT2 

L0PT2A 

L0PT3 

L0PT3A 

L0PT4 

L0PT5 

L0PT5A 

L0PT6 

L0PT7 

L0PT7A 

L0PT8 

L0PT9 

MAPER 

MEMOEF 

ME ME NO 

MERCOV 

MERHLT 

MERROR 

MERRP2 

MER1 

MER2 

MESEND 

MESNEX 

MES1 

MES2 

MES5 

MES6 

MILADR 

MILBTN 

MILDEC 

MILEMT 

MILOCT 

MILSCP 

MILTR1 

MILTR2 

MKBOVF 

MNOAV 

MN0SU6 

MPWRFL 

MSGFLG 

MSYERR 

MTE1 

MTE10 

MTE11 

MTE2 

MTE2A 

MTE3 

MIE3A 

MTE4 



011432 

024220 

012124 

020214 

021132 

012266 

012474 

012716 

013320 

013500 

013772 

014412 

014552 

015434 

016402 

017064 

017526 

010472 

010426 

007022 

007737 

010002 

007652 

007662 

010304 

010333 

024166 

024044 

021510 

021C66 

021750 

022034 

007445 

007360 

007316 

007421 

C07256 

007524 

010104 

010144 

007213 

023767 

010032 

007704 

011670 

007503 

022371 

023674 

023752 

022452 

022554 

022647 

022720 

023013 



MTE5 

MTE5A 

MTE6 

MTE7 

MTE8 

MTE9 

MT1S 

MT10S 

MT11S 

MT2AS 

MT2S 

MT3AS 

MT3S 

MT4S 

MT5AS 

MT5S 

MT6S 

MT7S 

MT8S 

MT9S 

MVERSN 

M..DET 

M, .HIM 

M. *fc MM * 
. . flrfl 

M..RET 

M..SAV 

M. .TRP 

M..TSE 

M..TST 

Ml 

N 

NOR . ER 

NOR..E 

N06 

OFFCNT 

OFFSET 

OUTFLG 

PMOOE « 

PROMES 

PS 

PSDSWR 

RA 

RANDOM 

RANMOD 

RB 

RED. .E 

RGAIN 

RUBFl.G 

R. . TYP' 

SAV 

SCOP AD 

SCOPE 

SEQ 

SEQPNT 



023113 

023165 

023274 

023373 

0234 72 

023565 

022324 

023602 

023711 

022466 

0224 05 

022663 

022570 

022734 

023127 

023027 

023201 

023310 

023410 

023507 

010156 

001662 

001766 

002006 

001726 

001424 

001776 

001374 

001516 

021606 

000003 

0043 76 

004372 

010612 

011664 

011504 

007152 

030000 

007202 

177776 

007160 

011734 

011672 

016604 

011736 

005626 

010624 

007162 

000001 

011164 

007172 

104000 

011552 

011550 



SFLAG 

SINGLE 

5ISDR0' 

SI. ON 

SMR 

SPEFLG 

SRO 

SR3 

START 

STATUS 

TALKER 

TESTAL 

TESTL1 

TESTO 

TESTi 

TEST10 

TEST11 

TEST12 

TEST13 

TEST14 

TEST2 

TEST3 

TEST4 

TEST5 

TEST6 

TEST7 

TEST8 

TEST9 

TKB 

TKS 

TOUT 

TPB 

TPMSG 

TPS 

TSTREP 

T ST 10 A 

TT 

TTE 

UP, E 

UBMPR 

UOSARO 

UOSDRO 

UISARO 

UISAR4 

UISAR5 

UISAR6 

UISAR7 

UISDRO 

UIS0R4 

UISDR5 

UISDR6 

UISDR7 

U. ,DET 



011426 

011506 

172200 

022112 

024206 

007170 

177572 

172516 

001204 

007164 

024216 

011536 

011612 

011740 

012106 

015400 

017046 

017510 

020176 

021114 

012250 

012456 

012700 

013302 

01^444 

013754 

014372 

014516 

177562 

177560 

021446 

177566 

024070 

177564 

011666 

016356 

011626 

011666 

001252 

170200 

177660 

177620 

177640 

177650 

177652 

177654 

177656 

1/7600 

177610 

177612 

17/614 

17761b 

001760 



VEPA 


024224 


VECAIN 


011070 


VECTOR 


024222 


VSR 


024214 


WRT. ,E 


006060 


X 


000152 


XX 


000004 


ZMZ - 


000004 


Z%%%1 - 


000000 


IMNOAV 


010351 


♦POINT 


006614 


SSKLO 


007176 


♦TABLE 


006616 


fWAS 


007200 


MMTYP 


007020 


$$PTYP 


007016 


MSPE 


003520 


$,IASF 


007174 


%. .AOP 


006706 


i. .ASC 


005464 


i. .BIN 


005504 


$. .BUK 


005444 


S. .DBN 


006630 


5. .DOC 


006520 


i. .DEC 


005270 


*. .DMP 


006400 


*. .DOC 


006426 


$. .EMT 


002326 


*. .ER 


007166 


*. . IAA 


004120 


*, .IAD 


004210 


J..IAE 


004' /2 


J. .IAS 


004402 


*. .IAY 


004010 


•♦ .INP 


003574 


i. .IOT 


003056 


t, .KBI 


003424 


$. .KBO 


006122 


*. .MAP 


002116 


i. .MSP 


005 700 


*. .NOR 


004 304 


*. .OCT 


005112 


$. .PRO 


006136 


$. .PUR 


003126 


*. .RED 


005020 


*. ,RRS 


003400 


i. .RSV 


003360 


$, . SPC 


011342 


$. .STX 


006262 


$. .TOT 


006 754 


$. . TRP 


002524 


J. .TYP 


001.242 


$, .WRT 


005654 



000 
001 



\-\x 



M8 
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SYMBOL TABLE 

CSSMON 000000 002 
ERRORS DETECTED; 

VIRTUAL MEMORY USED: 14133 WORDS ( 56 PAGES) 
DYNAMIC MEMORY: 20060 WORDS C 77 PAGES) 
ELAPSED TIME: 00:02:12 
2 IEBAO , ZIEBAO/ *SP -NEWMAC/ML , COM , 2IEBA0 









...Bl 


S..ADP 




. . -B5 


i 


TABLE OF CON. 


...CI 


♦..TOT 




. ..C5 


i 






. ..Dl 


♦..BUF 




. . .05 


i 






,,.E1 


♦..BUF 




. . .E5 


1 






>..F1 


♦..PUF 




. . .F5 




.S8TTL 


IEC-. 


. ..Gl 


♦..BUF 




...G5 


; ERROR 


21 


THE , 


...HI 


♦,.BUF 




, , .H5 


; ERROR 


37 


NO <. 


...11 


TEST SELECT ROUTINE . 


...15 


; ERROR 


55 


FIRS. 


...Jl 


TEST SELECT ROUTINE . 


...J5 


j ERROR 


75 


NO <. 


...Kl 


LOCAL MACRO DEFINITI. 


...K5 


; ERROR 


114 


CIR , 


...LI 


LOCAL MACRO DEFINITI. 


...L5 


J 


*++*+♦****++» 


...Ml 


TEST LON SWITCH FEAT. 


...M5 


i 


OUSING A PR. 


...Nl 


TEST 1 EXECUTE HAST, 


.♦,N5 


• 




PRES. 


...B2 


TEST 2 TEST 


SACS BI* 


. ..B6 


i 




THE . 


,.,C2 


TEST 3 TEST 


CIR BIT. 


♦ . » Co 


TABLE OF CONTENTS 


. ..02 


TEST 3 TEST 


CIR BIT, 


, . » Dp 








...E2 


TEST 4 TEST 


SACS SI. 


...E6 


LOW- CORE 




...rz 


TEST 4 TEST 


SACS SI. 




L.OU-CORE 




...G2 


TEST 4 TEST 


SACS SI. 


. . ,G6 


MEMORY 


TEST WITH MEM. 


...H2 


TEST 5 TEST 


INT ENB, 


.-* 


MEMORY 


TEST WITH MEM. 


...12 


TEST 6 TEST 


INTERRU, 


.,16 


t.,MAP 


CAPPING 


ROUTI. 


...J2 


TEST 6 TEST 


INTERS.* , 


. . , J6 


I..EMT 






...K2 


TEST 7 TEST 


STATE C. 


. . .K6 


I..EMT 






...L2 


TEST 7 TEST 


STATE C 


, .L6 


*..TRP 






...M2 


TEST 7 TEST 


STATE C. 


. . .M6 


J..TRP 






...N2 


TEST 8 - IOR 


DATA TE. 


• » « N6 


I..IOT 






...B3 


TEST 9 TEST 


STATE C. 


...B7 


♦..PWR 






...C3 


TEST 9 TEST 


STATE C. 


...C7 


I..RSV 






...03 


TEST 9 TEST 


STATE C. 


...D7 


I..RRS 






...E3 


TEST 9 TEST 


STATE C. 


,,.E7 


*..KBI 






...F3 


TEST 10 TEST 


DATA TR. 


...F7 


♦..INP 






...G3 


TEST 10 TEST 


DATA TR. 


...G7 


I..INP 






...H3 


TEST 10 TEST 


DATA TR. 


...H7 


I..IAY 






...13 


TEST 10 TEST 


DATA TR, 


...17 


*..IAY 






...J3 


TtST 10A -- 


RANDOM. 


...J7 


♦. .IAA 






...K3 


TEST 10A — 


RANDOM, 


...K7 


*. .IAD 






...L3 


TEST 10A -- 


RANDOM. 


...L7 


♦. .IAO 






...M3 


TEST 11 ~- TEST FUKC. 


...M7 


I..IAO 






...N3 


TEST U -- TEST FUNC. 


.,.N7 


I..IAE 






...B4 


TtST i«? TEST FUNC, 


. . .88 


♦..RED 






...C4 


TEST 12 -- TtST FUNC. 


. . .C8 


1. .RED 






...04 


TEST 13 -- TEST FUNC. 


. . .08 


♦..RED 






...E4 


TEST 13 -- TEST FUNC. 


., .E8 


♦..RED 






. ..F4 


TEST 13 -- r EST FUNC. 


.. .F8 


4..URT 






...G4 


TEST 14 --- 


TEST RPP. 


.. .G8 


4..URT 






.♦ .H4 


IET INTERWPT HANDLE. 


.. ,Hd> 


♦..KBO 






...14 


SI <\ TEST AC0RESS TABL. 


...18 


♦..PRO 






...J4 


MESSA'V"£ 




...J8 


♦..STX 






...K4 


CONSTATS AND PARAME, 


,..K8 


♦ . .Dtt> 






...L4 


SY'fVOL TABLE 




...L8 


♦ ..DMP 






. ..M4 


SYMBOL TABLE 




»».M8 


♦ *.DMP 






..♦N4 









